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ABSTRACT 


This  thesis  presents  an  Apple  II  Harkov  chain  model 
software  package  programmed  to  be  flexible,  practical,  and 
user  interactive.  The  program  addresses  the  future  de¬ 
termination  of  manpower  requirements  by  an  application  of  a 
limited  Markov  chain  model,  a  discrete  time  Markov  pro¬ 
cess  with  a  stochastic  matrix  of  transition  probabilities. 
The  user  may  manipulate  data  inputs  to  vary  outcome  ef¬ 
fects.  The  program  was  written  in  Applesoft,  an  Apple  II 
basic  language.  It  has  the  capability  to  store,  retrieve, 
and  modify  data  for  use  with  the  calculation  procedures. 
The  program  can  be  easily  modified  or  enhanced  to  allow  for 
inclusion  or  utilization  of  other  models. 


TABLE  OP  CONTENTS 


TRANSMITTAL .  7 

INTRODUCTION .  7 

MICROCOMPUTER  SYSTEM .  1 

SOFTWARE  DEVELOPMENT .  8 

MAN-MOD .  11 

PROGRAM  DESCRIPTION .  11 

CONCLUSIONS .  12 

MAN-MOD  USERS'  MANUAL .  14 

TABLE  OF  CONTENTS .  15 

LIST  OF  DISPLAYS .  16 

ILLUSTRATIONS .  16 

INDEX .  41 

BIBLIOGRAPHY .  42 

APPENDIX  A.  MAN-MOD/HELLO  MODULEk .  43 

APPENDIX  B.  MAN-MOD/THEORY  MODULE .  48 

APPENDIX  C.  MAN-MOD/ PROGRAM  MODULE .  70 

APPENDIX  D.  MAN-MOD/LINKER  MODULE .  156 

APPENDIX  E.  MAN-MOD/FORMATTER  MODULE .  139 

BIBLIOGRAPHY .  142 

INITIAL  DISTRIBUTION  LIST .  143 


5 


ACKNOWLEDGMENT 


The  author  would  like  to  thank  professors  Richard  S. 
Elster  and  James  D.  Esary  for  their  assistance  and  support 
with  the  MAN-MOD  Apple  adaptation.  A  special  thanks  to  the 
author's  wife,  Sandra,  whose  understanding  was  stretched  to 
the  limits,  but  without  whose  help  this  thesis  would  not 
have  been  completed. 


6 


TRANSMITTAL 


INTRODUCTION 

The  objective  of  this  thesis  is  to  provide  an  inter¬ 
active  learning  aid  in  evaluating  policies  and  their  effect 
on  manpower  requirements.  These  requirements  have  been  a 
problem  in  manning  the  All-Volunteer  Force  since  its  in¬ 
ception.  Without  the  steady  flow  of  personnel  into  the 
armed  forces  prevalent  with  the  draft,  it  has  become  in¬ 
creasingly  necessary  to  make  an  in-depth  examination  of 
policies  relating  to  manpower  requirements. 

For  the  manpower  analyst,  or  for  that  matter  anyone 
who  utilizes  the  methodology  and  problem  solving  approach 
of  the  manpower  analyst,  some  form  of  a  computational  de¬ 
vice  is  a  necessity.  Cost,  rigid  interface  requirements, 
and  a  number  of  other  factors  have  in  the  past  frustrated 
and  stifled  the  analyst  in  focusing  the  necessary  comput¬ 
ational  power  on  his  problem. 

In  the  early  1  970's,  programmable  hand-held  calcu¬ 
lators  were  introduced.  They  gave  the  analyst  a  signifi¬ 
cant  amount  of  computing  power  packaged  in  a  portable  unit. 
The  impact  these  devices  made  on  manpower  analyses  was 
extremely  important  in  real  time  studies.  However,  in 
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spite  of  the  tremendous  impact  of  hand-held  calculators, 
this  contribution  is  yielding  to  the  greater  capability 
found  in  the  microcomputer. 

In  view  of  the  prospective  proliferation  of  microcom¬ 
puters  and  the  significant  computing  power  that  they  now 
provide,  the  analyst  can  ill  afford  to  neglect  their  capa¬ 
bilities.  Today  compatible  software  to  support  the  capa¬ 
bilities  is  seriously  lacking  in  specialized  fields  such  as 
manpower  analysis.  It  is  this  software  application  that 
this  thesis  addresses. 

MICROCOMPUTER  SYSTEM 

Software  development  was  done  on  an  Apple  II  Plus 
microcomputer  with  a  5  1/4  inch  floppy-disk  drive  as  an  add 
on  peripheral.  The  standard  Apple  computer  presents  a 
forty  column,  twenty  four  line  display  which  is  compatible 
with  a  standard  television  set  or  a  commercial  monitor. 
The  output  format  for  the  program  is  written  to  be  viewed 
in  forty  columns  and  to  be  compatible  with  any  standard 
Apple  II  Plus  operating  system  with  a  single  disk  drive. 
SOFTWARE  DEVELOPMENT 

R.  F.  Ling's  article,  "General  Considerations  on  the 
Design  of  an  Interactive  System  for  Data  Analysis",  brought 
out  several  considerations  which  should  be  observed  in  the 
development  of  software  for  any  kind  of  analysis.  Among 
these  considerations  are:  choice  of  programming  language, 


8 


computational  effeciency,  portability,  information  re¬ 
trieval,  and  user  interface. 

Although  several  microcomputer  languages  are  avail¬ 
able  with  individual  features  which  are  attractive,  the 
language  used  in  this  software  development  effort  was 
Applesoft  basic,  a  "real  precision"  or  "floating  point" 
basic.  Basic  was  one  of  the  first  high  level  languages 
introduced  to  teach  programming  techniques  and  style.  The 
language  exploits  the  fundamental  programming  concepts, 
permitting  the  user  to  write  large,  complex  computer 
programs.  Although  a  basic  language  is  not  structured  in 
concept,  the  program  was  written  in  a  modular  fashion  (i. 
e.,  in  logical  sub-packages  which  can  be  individually 
programmed,  debugged,  and  validated.).  The  sub-packages 
are  combined  into  a  menu  driven  overall  package.  The 
program  was  written  with  five  modules,  each  having  its  own 
3ub-modules. 

In  spite  of  their  impressive  capabilities,  microcom¬ 
puters  cannot  compare  to  larger  computers  in  computational 
speed  and  accuracy.  Applesoft  basic,  as  implemented  on  the 
Apple,  will  only  perform  computations  using  nine  signi¬ 
ficant  figures.  The  program  written  is  limited  and  will 
only  handle  inputs,  displays,  or  print  outs  to  six  figures; 
any  number  greater  than  999999  will  result  in  a  >>>>>> 
display.  Percentages  greater  than  three  figures  will 
result  in  the  same  >>>  display.  While  Applesoft  basic  is 
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relatively  slow  as  an  interpreted  language,  the  program  and 
microcomputer  still  provide  immediate  results,  approx¬ 
imately  one  second  per  calculation. 

A  portable  program  can  be  run  on  a  number  of  different 
computer  systems.  While  many  higher  languages  provide  this 
capability,  basic  languages  are  deficient  in  portability. 
The  basic  languages  for  microcomputers  are  all  similar,  but 
each  has  syntax  and  commands  characteristic  to  itself. 
Therefore,  a  basic  program  written  for  the  Apple  computer 
will  not  run  on  another  computer  without  modification. 
While  basic  in  not  the  best  language  choice  for  porta¬ 
bility,  it  is  both  user  and  programmer  friendly. 

Information  retrieval  is  an  aspect  of  a  program  which 
permits  an  analyst  to  use  it  efficiently.  The  program  was 
designed  to  provide  the  user  with  the  ability  to  store  and 
retrieve  data  files. 

The  last  and  most  important  consideration  is  a  simple 
user  interface.  To  utilize  any  program,  the  user  must  in¬ 
teract  with  the  program,  make  numerical  entries,  and  se¬ 
lect  desired  calculation  routines  and  options.  Input  or 
response  requirements  which  are  unfamiliar  or  misunderstood 
by  the  user  can  cause  program  interruptions  or  require 
reinitialization.  This  is  undesirable.  Programs  should  be 
written  with  the  intent  of  establishing  a  dialogue  with  the 
user.  The  program  should  be  as  trouble  free  as  possible 
for  the  user,  and  minimize  the  user’s  chances  of  committing 
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a  fatal  error  when  responding  to  program  prompts  or  enter¬ 
ing  data.  Procedures  to  accomplish  this  are  costly  in 
terms  of  computational  efficiency  and  programming  steps; 
however,  user  convenience  is  worth  the  cost.  The  program 
was  written  with  this  objective  in  mind. 

MAN-MOD 

The  program,  MAN-MOD,  is  an  Apple  II  Plus  adaptation 
of  a  Markov  chain  model.  It  was  adapted  from  a  larger  com¬ 
puter  manpower  planning  model  called  MAN-MOD,  for  use  on 
the  Apple  computer.  A  Users'  Manual  was  written  to  assist 
the  user  in  utilizing  the  program.  The  actual  program  is 
user  oriented  and  menu  driven,  prompting  the  user  for 
inputs.  A  minimal  knowledge  of  the  microcomputer  is 
required.  The  Users'  Manual  provides  the  knowledge  needed 
to  use  the  MAN-MOD  program.  It  provides  initialization 
procedures  and  a  step  by  step  program  review.  There  are 
calculation  and  input  examples  for  the  new  user  to  review, 
as  well  as  general  program  and  interface  information.  The 
Users'  Manual  is  contained  within  this  thesis.  The  modules 
comprising  the  MAN-MOD  program  are  listed  in  Appendices  A  - 
E. 

PROGRAM  DESCRIPTION 


The  MAN-MOD  program  addresses  the  future  determi¬ 
nation  of  manpower  requirements  by  utilizing  a  discrete 
time  Markov  chain  with  a  stochastic  matrix  of  transition 


probabilities.  The  user  may  manipulate  data  inputs  to 
study  various  outcomes.  All  inputs  are  prompted. 

When  the  program  is  initialized,  the  user  begins  at 
the  "outer  level".  To  proceed  he  must  press  the  return  key 
which  will  load  the  main  module  and  present  the  main  menu, 
Display  2  in  the  User's  Manual.  Prom  here  he  selects  the 
option  he  desires  and  responds  to  the  screen  prompts  as 
required.  All  responses  and  inputs  are  intended  to  be  as 
trouble  free  as  possible  for  the  user.  The  user  may  return 
to  the  main  menu  from  the  sub-routines  by  selecting  the 
(E),  escape,  key  within  a  routine,  or  by  selecting  the 
return  menu  choice.  The  program  and  Users'  Manual  provide 
the  necessary  information  to  use  MAN-MOD. 

CONCLUSIONS 

With  the  advent  of  the  microcomputer,  and  its  afford¬ 
able  role  in  special  fields  such  as  manpower  analysis,  the 
analyst  will  have  increasing  access  to  computational  power 
in  the  1980's.  Providing  specialized  software  will  com¬ 
pliment  this  power. 

The  software  package  provided  here  gives  the  analyst  a 
useful  means  of  studying  manpower  requirements  using  the 
Apple  II  Plus  microcomputer.  The  modules  contained  within 
the  MAN-MOD  package  are  designed  to  be  easy  for  the  analyst 
to  use  and  to  cushion,  as  much  as  possible,  potential  user 
mistakes.  The  calculation  algorithms  used  are  identical  to 
those  used  in  the  larger  computer  MAN-MOD  program,  but 
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expressed  in  the  Apple's  basic  language.  The  MAN-MOD 
adaptation  has  been  programmed  to  be  compatible  with  the 
microcomputer's  size  and  computing  precision. 

Being  written  in  a  modular  design,  the  MAN-MOD  pro¬ 
gram  may  easily  be  enhanced  by  the  addition  of  new  modules, 
or  by  the  modification  of  existing  modules.  For  example, 
the  MAN-MOD  program  module  could  be  modified  to  allow 
utilization  of  the  Markov  vacancy  model. 

This  package,  and  hopefully  those  to  follow,  can  have 
a  significant  impact  in  manpower  analysis.  The  analyst  can 
be  allowed  to  work  independently,  examining  a  greater 
variety  of  situations.  Perhaps  of  equal  importance,  its 
use  in  the  educational  environment  can  accustom  the  analyst 
to  the  capabilities  that  should  be  available  for  his  use  in 
a  working  environment. 
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MAN-MOD  TRANSITIONAL  PLOW  MODEL 


Users  *  Manual 


INTRODUCTION 

MAN-MOD  is  an  Apple  II  adaptation  of  Bartholomew  and 
Forbes'  "BASEQN"  -  a  Markov  transition  model.  The  Apple 
Man-Mod  transitional  flow  matrix  program  is  designed  to 
permit  real  time  manpower  data  analyses.  The  program  is 
user  interactive,  prompting  the  user  for  inputs  as  the 
model  develops.  The  following  instructions  and  illustra¬ 
tions  will  give  the  user  a  better  understanding  of  the 
computer-user  interaction  and  the  model's  capabilities.  A 
basic  explanation  of  the  underlying  theory  is  contained 
within  the  program  as  a  menu  choice.  Bartholomew  and 
Forbes'  Statistical  Techniques  for  Manpower  Planning  is 
recommended  for  a  more  detailed  explanation. 

SYSTEM  HARDWARE 

The  suggested  system  configuration  is: 

1 .  48K  APPLE  II  PLUS  computer  with  monitor. 

2.  DISK  II  and  controller  card. 

3.  Printer  and  interface  card. 

SYSTEM  SOFTWARE 

MAN-MOD,  written  in  Applesoft  Basic,  is  modular  in 
design.  The  program  consists  of  three  modules,  MAN-MOD/ 
HELLO,  MAN-MOD/ PROGRAM,  MAN-MOD/THEORY,  and  utilizes  two 
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machine  language  routines,  MAN-MOD/LINKER  and  MAN-MOD/  FOR¬ 
MATTER. 

MAN-MOD/HELLO  is  the  initialization  program  providing 
variable  dimensioning,  machine  language  routine  loading, 
and  a  brief  terminology  review.  It  chains  into  the  MAN- 
MOD/ PROGRAM. 

MAN-MOD/PROGRAM  is  the  main  module  providing  a  menu 
for  branching  to  desired  options.  It  provides  the  INPUT, 
RECALL,  and  SAVE  capabilities,  along  with  the  data  calcul¬ 
ations  and  output.  It  chains  to  the  MAN-MOD/THEORY  module. 

The  MAN-MOD/THEORY  module  provides  basic  explanations 
of  theory,  calculation  options,  and  variable  definitions. 
Its  also  contains  a  reference  and  acknowledgment  section. 
It  chains  back  to  the  MAN-MOD/PROGRAM  module. 

The  two  machine  language  routines  connect  the  indivi¬ 
dual  modules  and  provide  for  number  formatting.  MAN-MOD/ 
LINKER  is  a  public  domain  routine  allowing  individual  pro¬ 
gram  interconnection  or  chaining.  MAN-MOD/FORMATTER  is  a 
print  using  routine  allowing  real  and  integer  numbers  to  be 
formatted.  It  is  a  modified  version  of  PRINT  II,  a  Com¬ 
puter  Systems  Design  copyrighted  program.  Permission  has 
been  obtained  to  utilize  the  modified  routine  for  MAN-MOD; 
any  other  use  of  the  routine  is  prohibited.  Program  list¬ 
ings  are  contained  in  the  thesis,  "An  Apple  II  Implemen¬ 
tation  of  the  Man-Mod  Manpower  Planning  Model",  by  James  L. 
Downs,  March  1982,  Naval  Postgraduate  School,  Monterey,  Ca. 
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STARTING  UP 


Starting  up  requires  system  initialization  and  disk 
booting.  Booting  is  a  term  for  placing  the  disk  in  the 
disk  drive  and  turning  the  computer  on.  A  disk  is  a  mag¬ 
netic  storage  device  that  allows  the  retention  and  recall 
of  data. 

The  following  steps  are  required  to  initialize  the 
MAN-MOD  program: 

1 .  Place  the  MAN-MOD  program  disk  in  disk  Drive  1 . 

2.  Turn  the  video  monitor  on. 

3*  Turn  the  printer  on  (an  Apple  Silentype  printer  is 
not  required  to  be  turned  on). 

4.  Reach  behind  the  Apple  II  computer  on  the  left 
side  and  turn  the  computer  on. 

Once  the  preceding  initialization  3teps  are  complet¬ 
ed,  the  following  things  will  occur. 

TERMINOLOGY 

The  red  light  on  the  disk  drive  will  come  on,  the  disk 
drive  will  start  up,  and  this  acknowledgment  will  be  print¬ 
ed  on  the  screen: 


MAN-MOD  IS 

AN  APPLE  ADAPTATION  07 
BARTHOLOMEW  AND  FORBES' 
"BASEQN"  -  A  MARKOV  TRANSITION  MODEL 
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There  will  be  a  pause,  and  the  screen  will  then  dis¬ 
play  a  review  of  five  basic  terms.  The  list  covers  terms 
to  which  the  user  will  frequently  respond.  The  monitor 
screen  is  shown  in  Display  1 . 


*  HAN -MOO  TRANSITION  MATRIX  PROGR*1  X 


~\ 


(TERMINOLOGY  REVIEVO 


<A>  ACCEPT!  ACCEPT  SCREEN  DISPLAY,  PRO¬ 
CEED  TO  NEXT  ROUTINE 

<E>  ESCAPE!  ABORT  PRESENT  ROUTINE,  RE¬ 
TURN  TO  MENU 

INPUT!  CALLS  FOR  A  DATA  INPUT, 

ONCE  ENTERED  PRESS  RETURN 

PRESS!  SELECT  CHOICE  OF  SCREEN  OP¬ 

TIONS,  AND  PRESS  CHOICE 

<R>  REENTER i  RE-INPUT  VALUES  DISPLAYED 
ON  SCREEN 


PRESS  RETURN  TO  CONTINUE 


<DISPLAY  1> 

At  the  bottom  of  Display  1  ,  the  following  line  is 
shown: 


PRESS  RETURN  TO  CONTINUE 

Once  the  terms  have  been  reviewed,  the  user  presses 
the  key  marked  RETURN.  The  screen  will  go  blank  for  a 
moment,  then  this  statement  will  appear: 

<MAN-M0D  PROGRAM  BEING  LOADED > 

MAIN  MENU 

It  will  take  approximately  25  seconds  for  the  MAN-MOD/ 
PROGRAM  module  to  load.  Once  loaded,  the  MAIN  MENU  will  be 
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displayed  on  the  screen  giving  the  user  several  options 
from  which  to  choose.  The  user  will  be  able  to  select  the 
option  desired  and  press  the  corresponding  number.  After 
the  option  choice  is  pressed,  the  program  will  display  the 
option's  menu.  The  MAIN  MENU  options  are  shown  in  Display 


2. 


X  l*W-MOD  TRANSITI ON  MATRIX  PROGRAM  X 


< MAN -MOO  MENLO 


<1/  MAN-MOD  THEORY  fc  DEFINITIONS 
<2>  MAN-MOD  OPERATIONAL  MODEL 
<3>  SAVE  DATA  FILE  TO  DISK 
< 4)  EXIT  MAN-MOD  PROGRAM 


PRESS  SELECTION 


) 


<DISPLAY  2> 

MAN-MOD  THEORY  ft  DEFINITIONS 

Selecting  the  main  menu  Option  (1),  MAN-MOD  THEORY  ft 
DEFINITIONS,  will  chain  the  user  to  the  MAN-MOD /THEORY 
module.  It  will  take  approximately  twenty  seconds  to  load 
the  module.  Once  loaded,  a  menu  will  provide  the  user  with 
choices  for  a  review  of  the  basic  Markov  chain  model,  an 
explanation  or  definition  of  variables  found  in  the  MAN- 
MOD  program,  an  overview  of  options  available  in  performing 
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the  calculations,  or  major  references  and  acknowledgments. 
The  user  may  choose  a  menu  option  by  pressing  the  desired 
number.  The  theory  menu  is  shown  in  Display  3* 


<DISPLAI  3> 

Although  the  Theory  and  Definitions  section  will  give 
a  basic  usderstanding  of  MAN-MOD,  it  is  not  detailed  enough 
to  provide  in-depth  learning.  For  users  not  familiar  with 
Markov  chain  models,  it  is  recommended  that  one  of  the  man¬ 
power  reference  books  be  reviewed.  MAN-MOD  was  programmed 
on  the  Apple  II  to  be  utilized  as  a  basic  forecasting  tool 
for  individuals  familiar  with  manpower  requirements. 

To  exit  the  theory  module,  the  user  selects  Option 
(5).  The  program  will  then  chain  the  user  to  the  main 
menu.  The  main  menu  is  the  focal  point  from  which  the  user 
selects  a  working  option,  see  Display  2. 
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MAI-MOD  OP5RATIOIAL  MODEL 


Selection  (2),  MAN-MOD  OPERATIONAL  MODEL,  will  place 
the  user  in  the  working  program.  A  menu,  Display  4,  will 
be  shown  on  the  screen.  The  user  will  select  a  choice  and 
proceed  as  prompted.  The  menu  options  will  be  discussed  in 
detail  to  provide  the  user  with  a  better  understanding  of 
the  program's  capabilities. 


I  MAN-MOO  TRANSITION  MATRIX  PROGRAM  X 


< 1)  INPUT  NEW  OATA 
<2>  RECALL.  OATA  PROM  DISK 
< 3)  CHANGE  OR  MODIFY  PARAMETERS 
<4>  LIST  INPUTS  OR  PARAMETERS 
( 3>  CALCULATE  WITH  CURRENT  DATA 
<4>  RETURN  TO  MENU 


PRESS  SELECTION 


<DISPLAY  4> 


INPUT  NEW  DATA 

The  INPUT  NEW  DATA,  Option  (1),  allows  the  user  to 
create  a  new  data  file.  To  create  a  new  file,  the  user 
will  begin  by  assigning  a  PILE  NAME.  The  PILE  NAME  cannot 
be  over  1 5  characters  in  length  and  must  start  with  a  let¬ 
ter  of  the  alphabet.  A  PILE  NAME  that  begins  with  a  number 
will  be  rejected  when  the  save  routine  is  initiated.  A 
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PILE  NAME  is  needed  to  save  the  data  and  recall  it  at  a 
later  time.  The  user  will  be  prompted  on  each  data  entry. 
After  each  entry  the  input  will  be  displayed  for  verifica¬ 
tion  by  the  user.  The  user  will  have  the  choice  to  (R), 
reenter  the  data,  either  correcting  or  changing  the  input; 
to  (A),  accept  the  input;  or  to  (E),  escape  to  the  MAN-MOD 
OPERATIONAL  MODEL  menu.  Display  4.  The  input  sequence  for 
new  data  is  as  follows: 

PILE  NAME 

NUMBER  (K)  OP  CLASSES  OR  GRADES 
INITIAL  CLASS  VECTOR  (N)  (Stocks) 

PRACTIONAL  PLOW  MATRIX  (P) 

OPTIONS  CHOICE  (1-5) 

RECRUITMENT  VECTOR  (Options  1-5) 

RECRUITMENT  NUMBER  (Options  2-5) 

ADDITIVE  NUMBER  (Options  244) 

MULTIPLICATIVE  FACTOR  (Options  3  4  5) 

TIME  (T)  PERIODS  TO  INITIALLY  CALCULATE 
PERCENTAGE  OPTIONS  FOR  PRINT  OUT 
Once  the  initial  input  data  has  been  entered,  the 
screen  will  display  "INITIAL  INPUTS  COMPLETED".  The  user 
will  then  be  given  the  option  to  save  or  not  to  save  the 
data  file  entered,  see  Display  5  next  page.  It  is  highly 
recommended,  to  prevent  the  loss  of  data,  that  the  user 
save  the  data  at  this  point.  If  Choice  (1),  yes,  is 
selected,  the  screen  will  state  DATA  BEING  SAVED;  the  data 
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will  be  saved  under  the  entered  PILE  NAME.  Note,  if  data 
has  been  previously  saved  under  this  name,  it  will  be 
erased  and  the  new  data  saved.  Once  the  data  is  saved,  the 
program  will  return  the  user  to  the  main  menu,  Display  2. 
Option  (2)  will  have  to  be  selected  to  return  to  the  opera¬ 
tional  model  menu.  If  the  user  selects  2,  NO,  not  electing 
to  save  the  input  data,  he  will  automatically  be  returned 
to  the  operational  model  menu,  Display  4. 


<DISPLAY  5> 

The  INPUT  NEW  DATA  option  allows  for  a  systematic  in¬ 
put  of  data.  The  input  routine  sequence  corresponds  to  the 
suggested  input  sequence  found  in  the  Bartholomew  and 
Forbes'  book.  The  MAN-MOD  EXAMPLE  shown  in  the  example 
section  illustrates  the  data  a  user  would  input. 


RECALL  DATA  PROM  DISK 

The  RECALL  DATA  PROM  DISK,  Option  (2)  of  the  opera- 
ional  menu,  allows  the  user  to  recall  a  data  file  previ¬ 
ously  saved  under  a  PILE  NAME.  The  user  will  be  asked  to 
input  the  PILE  NAME  he  desires  to  recall.  The  program  will 
display  the  file  name  on  the  screen  and  prompt  the  user  to 
choose  either  to  (A),  accept  the  input  PILE  NAME  and  pro¬ 
ceed;  (R),  reenter  the  name,  either  correcting  the  previous 
entry  or  inputting  a  new  PILE  NAME;  or  (E),  escape  from  the 
recall  routine  to  the  operational  menu. 

If  a  PILE  NAME  has  been  entered  and  accepted  for  re¬ 
call,  the  program  will  prompt  the  user  as  to  which  disk 
drive  the  data  file  is  on.  The  disk  drives  are  normally 
labeled  Drive  1  and  Drive  2.  If  the  drives  are  not  label¬ 
ed,  then  the  boot  drive  is  Drive  1  .  The  boot  drive  is  the 
drive  which  starts  up  first  when  the  computer  is  turned  on. 
The  user  will  select  the  drive  in  which  the  data  file  disk 
has  been  placed.  The  user  normally  saves  his  data  files  on 
the  MAN-MOD  program  disk  and  uses  only  Drive  1 .  If,  while 
entering  the  recall  information,  a  mistake  is  made,  the 
program  will  prompt  the  user  to  <REVERIFY>  data  entered, 
PILE  NAME  and  disk  drive.  If  the  user  is  uncertain  of  the 
PILE  NAME  under  which  he  saved  his  data,  he  may  catalog  the 
disk  to  verify  the  nafiie.  To  catalog  the  MAN-MOD  disk,  see 
the  CATALOG  section. 


Once  the  FILE  NAME  ia  entered  and  the  disk  drive  has 
been  selected,  the  program  will  indicate  on  the  scree!?  that 
the  data  file  is  being  loaded.  After  the  file  has  been 
loaded,  the  user  will  be  returned  to  the  operational  menu. 
An  illustration  of  data  recall  is  shown  in  the  example 
section. 

CHANGE  OR  MODIFY  PARAMETERS 

Option  (3)  of  the  operational  menu,  Display  4,  is  the 
CHANGE  OR  MODIFY  PARAMETERS  routine.  It  is  important  in 
that  it  allows  the  user  the  flexibility  to  modify  previous¬ 
ly  entered  or  recalled  data,  and  to  observe  outcomes.  The 
option  is  menu  driven,  Display  6. 

- X 

'  X  MAN-MOO  TRANSITION  MATRIX  PROGRAM  X 

{CHANGE  OR  MODIFY  DATA> 


<  1) 

FILE  NAME 

<7> 

PERCENT  C/.)  ! 

<  2) 

INITIAL  3TKS 

<8> 

EXT  RANGE  *T 

<3> 

MATRIX  <P> 

(?) 

CP>  ELEMENT 

<  4) 

RECRUITMENT 

(  IS) 

<  P>  ROW 

<3> 

OPTIONS 

<  I  l) 

RESET  STKS  ! 

<6> 

TIME  <T> 

(  12) 

RETURN  MENU 

X  GOTO  THEORY  FOR  EXPLANATIONS  X 


//////////<//#//////////////<////////< 

INPUT  SELECTION 


<DISPLAY  6> 

The  user  will  choose  the  desired  parameter  he  wishes 
to  modify,  a  number  selection,  and  press  the  return  key. 
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The  program  will  display  the  data  that  has  been  previously 
entered  and  query  the  user  as  to  his  desires.  The  user  may 
(A),  accept  data  as  is  and  be  returned  to  the  menu,  or  he 
may  press  (R)  which  allows  him  to  reenter  that  particular 
data.  Once  the  new  data  is  input,  it  will  be  displayed 
again  for  an  (A),  accept,  or  an  (R),  reenter  user  input. 
Definitions  of  the  menu  variables  are  given  in  the  Theory 
and  Definitions  option  in  the  MAN-MOD  program. 

Once  an  input  is  changed  or  modified,  it  will  remain 
changed  or  modified.  The  user  may  elect  to  save  the 
modified  data  under  a  new  PILE  NAME,  or  the  one  currently 
being  used.  If  data  has  been  recalled  or  previously  saved 
using  this  PILE  NAME,  saving  the  new  data  under  this  name 
will  destroy  all  data  previously  saved  with  this  name. 

The  change  or  modify  routine  is  a  powerful  means  of 
exploring  or  examining  different  scenarios  affecting  man¬ 
power  requirements. 

LI3T  INPUTS  OR  PARAMETERS 

The  LIST  INPUTS  OR  PARAMETERS,  Option  (4)  of  the  oper¬ 
ational  menu,  allows  the  user  to  review  data  in  memory, 
either  on  the  screen  or  by  a  paper  print  out.  The  user  may 
select  this  option,  as  any  option,  at  any  time.  Due  to  the 
number  of  inputs  and  the  limited  40  column,  24  line  display 
of  the  Apple  II,  the  screen  review  will  be  shown  in  pages. 
All  matrix  inputs  and  row  vectors  will  be  listed  in  column 
format.  The  paper  copy  will  list  all  data  on  one  page  in 
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normal  row  format.  Examples  of  data  listings  are  3hown  in 
the  example  section. 

CALCULATE  WITH  CURRENT  DATA 


The  last  operational  menu  choice  is  Option  (5),  CAL¬ 
CULATE  WITH  CURRENT  DATA.  This  option  will  display  three 
choices.  The  choices  will  permit  either  step  calculation, 
point  calculation,  or  continue  calculation  -  extending  the 
range  on  data  and  options  presently  selected  in  memory. 
The  option  choices  are  shown  in  Display  7. 


X  MAN -MOO  TRANSITION  MATRIX  PROGRAM  X 


<1)  CALCULATE  ALL  0  PERIODS 
<2>  CALCULATE  LAST  TIME  PERIOD  8 
<3>  EXTEND  CALCULATION  RANGE 
<  4)  RETURN  TO  MENU 


PRESS  SELECTION 


<DISPLAY  7> 


Calculations  from  a  selected  menu  choice  may  be  either 
displayed  on  the  screen  or  sent  to  the  printer  for  a  paper 
copy.  The  user  will  be  prompted  after  choosing  the  desired 
calculation  as  to  the  desired  display. 


By  choosing  calculation  option  1  or  2,  the  MAN-MOD 
program  vrill  automatically  reset  stocks  or  class  sizes  to 
the  original  memory  input  and  commence  calculating  from 
time  period  (0).  Only  option  3,  extend  calculation  range, 
will  permit  the  user  to  continue  from  a  previously  calcu¬ 
lated  time  period  done  with  option  1 ,  2,  or  3. 

An  advantage  in  utilizing  the  extended  range  choice 
is,  the  user  may  calculate  manpower  requirements  under  one 
set  of  parameters  to  a  certain  time  period,  go  to  the 
CHANGE  OR  MODIFY  menu  and  change  parameters  in  memory,  then 
continue  calculations  to  a  new  time  period  with  the  new 
parameters.  This  would  permit  the  user  to  consider  future 
changes  in  recruitment  policy,  transitioning  policy,  or  any 
policy  affecting  the  system. 

The  last  choice  on  any  sub-menu  will  return  the  user 
to  the  next  higher  menu.  Exiting  the  calculation  menu  will 
return  the  user  to  the  operational  menu.  The  last  choice 
of  the  operational  menu,  Display  4,  is  to  return  the  user 
to  the  main  menu,  which  brings  the  user  to  the  two  remain¬ 
ing  options  to  be  discussed,  SAVE  DATA  FILE  TO  DISK  and 
EXIT  MAN-MOD  PROGRAM. 

SAVE  DATA  FILE  TO  DISK 

Option  (3)  of  the  main  menu,  SAVE  DATA  FILE  TO  DISK, 
provides  the  user  a  chance  to  save  data  input  in  memory  be¬ 
fore  exiting  the  program  or  continuing  on  to  another  op¬ 
tion.  A  save  option  is  automatically  provided  ending  the 
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INPUT  NEW  DATA  routine.  However,  if  data  has  been  modified 
or  the  input  data  has  not  been  saved  and  the  user  wishes  to 
save  it  now,  he  may  do  so  by  selecting  Option  (3).  The  op¬ 
tion  will  prompt  the  user  as  to  PILE  NAME  to  be  saved  and 
disk  drive  choice.  An  explanation  of  disk  drives  is  dis¬ 
cussed  in  the  RECALL  DATA  PROM  DISK  section.  Note,  using 
previously  saved  PILE  NAME  could  cause  loss  of  previously 
saved  data. 

Once  the  user  has  responded  to  prompts  and  the  data 
file  has  been  saved,  the  program  will  return  the  user  to 
the  main  menu. 

EXIT  MAN-MOD  PROGRAM 

Option  (4),  EXIT  MAN-MOD  PROGRAM,  of  the  main  menu  will 
terminate  the  MAN-MOD  program.  Selecting  this  option  will 
display  the  exit  menu  giving  the  user  a  last  opportunity  to 
return  to  the  main  menu  before  terminating.  If  EXIT  PRO¬ 
GRAM  is  selected,  the  program  will  be  terminated  displaying 
an  exit  statement;  all  data  in  memory  is  lost. 

ERROR  RECOVERY 

MAN-MOD  was  written  to  be  robust  and  to  protect  the 
user  from  errors  and  program  problems.  However,  Murphy's 
Law  will  always  prevail,  and  if  an  error  or  program  problem 
can  happen,  it  will. 

Rule  1,  always  save  data  first.  It  is  best  to  do  so 
as  soon  as  possible.  If  an  unrecoverable  error  occurs, 
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then  the  data  is  safe  on  a  storage  disk  and  the  program  can 
be  restarted  or  reinitialized. 

One  of  the  most  common  inadvertent  errors  a  user  may 
make  is  to  press  the  RESET  key.  Once  pressed,  the  RESET 
key  will  cause  a  program  interruption  and  place  the  user  in 
Applesoft  basic,  indicated  by  a  bracket  on  the  screen  and  a 
flashing  cursor.  All  data  in  memory  will  be  lost.  How¬ 
ever,  the  user  may  reenter  the  MAN-MOD  program  by  typing 
RUN,  see  Display  8,  and  pressing  the  return  key,  or  by  by 
reinitializing  the  MAN-MOD  PROGRAM. 


r~ 

CATALOG 

\ 

DISK  VOLUME  234 

XA  >• 7  MAN -MOO/HELLO 

IB  904  MAN-MOO/FORMATTER 

XB  993  MAN-MOD/LINKER 

XA  190  MAN-MOO/PROORAM 

XA  a 47  MAN-MOD/THEORY 

T  SS2  MAN-MOD  EXAMPLE 

* 

JRUN 

J 

<DISPLAY  8> 

The  user  may  reinitialize  the  MAN-MOD  program  two 
ways;  first,  by  typing  PR #6  and  pressing  the  return  key,  or 
second,  by  turning  the  computer  off  and  back  on.  The  first 
method  is  preferred. 
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Program  interruptions  will  occur.  The  best  recom¬ 
mended  restart  is  to  reinitialize  the  program.  Restart¬ 
ing  the  program  with  RUN  could  possibly  work,  but  unless 
the  user  has  an  idea  of  why  the  program  was  interrupted,  it 
is  best  to  clear  memory  and  reload  by  initializing. 

CATALOG 

Sooner  or  later  the  user  will  desire  to  see  or  verify 
the  data  file  names  he  has  saved  to  the  disk.  At  present 
the  MAN-MOD  program  does  not  provide  an  internal  review 
capability.  The  capability  does  exist  for  the  user  to  li3t 
the  files  on  a  standard  Apple  II  Disk  Operating  System 
(DOS)  disk  from  Applesoft  basic.  To  CATALOG  the  disk  or 
list  the  programs  saved,  the  user  must  enter  Applesoft 
basic.  There  are  two  ways  to  accomplish  this,  one  is  to 
press  the  RESET  key,  the  other  is  to  exit  the  program. 

Pressing  the  RESET  key  will  cause  a  program  interrup¬ 
tion  and  place  the  user  in  Applesoft  basic.  Since  pressing 
the  reset  key  inadvertently  is  not  desired,  Apple  computer 
designers  modified  later  Apple  II's  to  give  the  owner  a 
capability  to  disable  the  normal  RESET  function.  The  modi¬ 
fication  provides  an  internal  switch  within  the  computer, 
causing  the  RESET  key  function  to  work  only  in  conjunction 
with  the  CONTROL  key.  The  user  must  determine  in  which 
mode  the  system  is  configured.  If  pressing  the  RESET  key 
does  not  interrupt  the  program,  then  try  pressing  the 
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CONTROL  key  and  the  RESET  key  simultaneously .  One  of  the 
operations  will  place  the  user  in  Applesoft  basic. 

The  other  means  of  entering  Applesoft  basic  is  to  use 
the  EXIT  MAN-MOD  PROGRAM  main  menu  option  (4).  This  will 
clear  the  screen  and  place  the  user  in  Applesoft  basic  with 
a  bracket  and  flashing  cursor  in  the  upper  left  corner. 

Once  in  Applesoft  basic,  the  user  can  type  CATALOG  and 
press  the  return  key.  The  disk  drive  will  initialize  and 
all  programs  saved  on  the  disk  in  the  initializing  drive 
will  be  listed  on  the  screen,  3ee  Display  8,  preceeding 
page.  If  the  list  is  longer  that  the  screen  listing  cap¬ 
ability,  it  will  pause  allowing  the  user  to  review  the 
first  part  of  the  catalog,  pressing  the  return  key  will 
continue  the  listing.  Once  the  programs  have  been  listed, 
the  bracket  and  flashing  cursor  will  reappear.  After  re¬ 
viewing  the  CATALOG,  the  user  may  reenter  the  MAN-MOD  pro¬ 
gram  by  reinitializing  the  program  or  by  typing  RUN  and 
pressing  the  return  key.  To  reinitialize  the  program,  the 
user  may  type  PR#6  and  press  return,  or  turn  the  computer 
off  and  back  on.  It  is  recommended  that  the  user  reinit¬ 
ialize  the  program  to  reenter.  The  reinitialization  will 
take  longer,  approximately  30  seconds,  but  will  clear  and 
reload  memory  preventing  any  inadvertent  memory  changes 
which  might  cause  program  interruptions  or  erroneous  cal¬ 
culations.  The  preferred  method  is  typing  PR#6. 
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DISK  MAINTENANCE 


The  5  1 /4  inch  storage  disk  is  referred  to  as  a  "flop¬ 
py"  disk.  MAN-MOD  has  been  programmed  and  stored  on  a 
floppy  disk  for  the  user's  convenience.  The  storage  is 
done  magnetically,  similarly  to  storing  music  on  a  magnetic 
tape.  The  magnetic  floppy  disk  is  durable  but  not  indes- 
tructable.  The  same  care  and  concern  one  would  give  a  mus¬ 
ical  tape  recording  should  be  given  to  a  floppy  storage 
disk.  The  di3ks  are  susceptible  to  heat,  magnetic  fields, 
and  physical  abuse.  Any  one  of  the  three  could  cause  total 
or  partial  loss  of  the  MAN-MOD  programs  or  saved  data 
files.  If  data  is  lost  or  damage  occurs,  return  the  disk 
to  the  issuer.  BACKUP  copies  of  data  files  may  be  made  by 
using  the  SAVE  DATA  TO  DISK  main  menu  option  and  saving  the 
file  to  a  second  disk. 

BACKUP 

BACKUP  is  a  reference  term,  pertaining  to  the  saving 
of  a  second  copy  of  a  program  or  data  file.  MAN-MOD  has 
the  capability  through  the  SAVE  DATA  TO  DISK  option  to  save 
a  second  copy.  To  utilize  this  capability,  the  user  must 
have  two  disks,  MAN-MOD  and  an  initialized  floppy  disk  or  a 
second  MAN-MOD  disk.  An  initialized  second  disk  may  be 
obtained  by  purchasing  a  blank  disk  and  asking  an  Apple 
owner  to  initialize  it.  With  a  BACKUP  copy,  if  the  origi¬ 
nal  MAN-MOD  disk  is  damaged,  destroyed,  or  lost,  the  user 
will  have  backup  data  files  and  not  all  will  be  lost. 
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MAN-MOD  EXAMPLE 

The  following  example  is  an  illustration  of  data  in¬ 
put,  a  listing  of  that  data,  and  a  calculation  routine  per¬ 
formed  on  the  data  using  a  pre-selected  calculation  option, 
Additive  (System  Size).  The  example  is  called  "MAN-MOD 
EXAMPLE".  The  example  has  been  entered  and  stored  on  the 
MAN-MOD  program  disk.  The  user  may  recall  the  data  file 
and  experiment  with  various  options,  or  may  reenter  the 
data  under  a  new  PILE  NAME  to  simulate  similar  operations. 
MAN-MOD  EXAMPLE  will  give  the  user  an  idea  of  what  the 
input  data  listing  will  look  like  and  an  example  of  both  a 
step  calculation  and  a  point  calculation  printout. 
Illustrations  are  found  on  the  following  pages. 

In  selecting  a  listing  or  calculations  display,  the 
user  may  choose  either  a  screen  display  or  a  paper  copy. 
The  MAN-MOD  program  will  not  at  present  give  both  displays 
simultaneously.  The  user  may  utilize  the  screen  display 
for  manipulating  calculations  and  once  the  desired  output 
is  attained,  recalculate  the  same  parameters  to  a  paper 
copy. 

The  following  are  illustrations  of  data  input,  list¬ 
ings,  and  calculations.  The  input  is  for  the  MAN-MOD 
EXAMPLE.  If  further  illustrations  are  desired,  the 
Bartholomew  and  Forbes'  book  is  recommended.  MAN-MOD  is  an 
adaptation  of  those  authors'  BASEQN  model. 
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NAN-NOD  EXAMPLE  DATA  INPUT 


PILE  NAME: 

NUMBER  JK)  CLASSES: 
INITIAL  STOCK  VECTOR: 

MATRIX  (P: 

OPTION: 

RECRUITMENT  VECTOR: 

RECRUITMENT  NUMBER: 
ADDITIVE  NUMBER: 
MULTIPLICATIVE  FACTOR: 
TIME  (T)  PERIODS: 
PERCENTAGE  OPTION: 

*  INPUT  OP  ROW  VECTORS 


MAN-MOD  EXAMPLE 


3 


R1 

* 

Cl 

70 

C2 

20 

C3 

10 

R1 

R2 

R3  * 

Cl 

.95 

.00 

.00 

C2 

.01 

•  94 

.00 

C3 

.00 

.00 

.95 

(4)  - 

ADDITIVE 

(SYSTEM 

R1  * 

Cl  .70 
C2  .20 
C3  .10 

NOT  REQUIRED 
10 

Options  3  &  5  only 
5 

(2)  PRESENT  PERIOD 


IS  VERTICAL 


INPUT  DATA  LIST 

ILLUSTRATION  1 
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MAN-NOD  EXAMPLE  DATA  LISTING 


MAM-MOD  DATA  FILE  LISTING 


DATA  FILE  NAME  IS. . . s 

NUMBER  <K>  CLASSES..: 

TIME  (T)  PERIODS _ : 

PERCENTAGES  OPT  ION..: 

OPTION  SELECTED  IS..: 

OPTION  INPUTS . : 


MAN-MOD  EXAMPLE 

<3> 

(5) 

GRADE  SI2E  AS  X  OF  TOTAL  SIZE 

ADDITIVE  (SYSTEM  SICE) 

CALCULATES  TOTAL  NET  NUMBER 
TO  INCREASE  SYSTEM  BY  ICO 


INITIAL  STOCK  (N)  VECTOR  AND  RECRUITMENT  ( R)  VECTOR 


COL  I 

COL  2 

COL  3 

VECTOR 

N: 

7  6 

20 

10 

RECRUIT 

R: 

.7000 

.2000 

.  1000 

TRANSITIONAL 

FLOW 

MATRIX 

(P> 

COL  1 

COL  2 

COL  3 

ROW  ( I ) 

.9500 

.0  100 

.0000 

ROW  (2) 

.0000 

.•’400 

.0000 

ROW  (3) 

.0000 

.0000 

.9500 

INPUT  DATA  LISTING 


ILLUSTRATION  2 


T 
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MAN-MOD  EXAMPLE,  STEP  4  POINT  CALCULATIONS 

DATA  FILE  NAME...:  (MAN-MOO  EXAMPLE) 

TRANSITIONAL  FLOWS 


TIME 

CLASS 

STOCKS  <N> 

(PERCENT) 

RECRUITMENT 

8 

1 

70 

(  70) 

0 

2 

28 

(  20) 

0 

3 

18 

(  10) 

8 

TOTAL 

108 

(  100) 

1 

1 

77 

(  78) 

18 

2 

22 

(  20) 

3 

3 

1  1 

(  18) 

1 

TOTAL 

1  10 

(  1  10) 

15 

2 

1 

83 

(  69) 

10 

2 

25 

(  21) 

3 

3 

12 

(  18) 

1 

TOTAL 

120 

(  120) 

15 

3 

1 

98 

<  69) 

1  1 

2 

27 

(  21) 

3 

3 

13 

(  10) 

2 

TOTAL 

138 

<  130) 

15 

4 

1 

97 

(  69) 

1  1 

2 

38 

(  21) 

3 

3 

14 

(  18) 

2 

TOTAL 

148 

(  140) 

16 

3 

1 

183 

(  69) 

1  1 

2 

32 

(  21) 

*  3 

3 

15 

(  18) 

2 

TOTAL 

150 

(  130) 

16 

DATA  F I LE  NAME . . . : 

TRANSIT  1  Of  AL  FLOWS 

TIME  CLASS 

STOCKS  <N> 

(MAN-MOD  EXAMPLE) 

( PERCENT) 

RECRUITMENT 

3  1 

103 

(  69) 

1  1 

2 

32 

(  21) 

3 

3 

13 

(  18) 

2 

TOTAL 

130 

(  130) 

16 

ILLUSTRATION  3 
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PROGRAM  ACCURACY 

The  MAN-MOD  program's  accuracy  is  determined  by  the 
limitations  of  Applesoft  basic.  The  format  is  based  on 
"real  precision”  or  "floating  point"  numbers.  MAN-MOD  will 
calculate  stocks  for  display  or  printout  to  999999,  any 
number  greater  will  result  in  a  >>>>>>  display.  Percent¬ 
ages  greater  than  999  will  result  in  a  >>>  display.  Since 
the  MAN-MOD  program  primarily  is  concerned  with  stocks,  no 
fractions  are  listed.  MAN-MOD  uses  an  integer  .5  round  off 
routine  for  both  class  stocks  and  total  listings.  Thus,  a 
difference  may  occur. 
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INDEX 


PG 


ACCEPT  (A) . 20 

ACCURACY . 40 

ACKNOWLEDGMENT . 19,22 

APPLESOFT  BASIC . 17,33 

BACKUP . 35 

BARTHOLOMEW,  D.  J . 17 

BASEQN . 17 

BOOT  DRIVE . 26 

BOOTING . 19 

CALCULATIONS . 29 

CHANGE  DATA . 27 

CONTENTS . 15 

CONTROL  KEY . 33 

DAMAGE . 35 

DATA  INPUT . 23 

DEFINITIONS . 21 

DISK . 19 

DISPLAYS . 16 

DOWNS ,  J  •  L.  . 18 

DRIVE  1  &  2 . 26 

ERROR  RECOVERY . 31 

ESCAPE  (E) . 20 

EXAMPLES . 37-39 

EXIT . 31 

EXTEND  RANGE . 27,29,30 

FILE  NAME . 23 

FLOATING  POINT . 40 

FLOPPY  DISK . 35 

FORBES,  A.  F . 17 

HARDWARE . 17 

INITIALIZATION . 19 

INPUTS . 20,24 

LISTING,  DATA . 28 

LISTINGS . 16 

LISTINGS,  FORMAT . 28 


PG 


LOADING  (BOOTING) . 19 

LOADING  TIME . 20,31 

LOSS  DATA . 25 

MAN-MOD/FORMATTER . 18 

MAN-MOD  /HELLO . 13 

MAN-MOD /LINKER . 18 

MAN-MOD /PROGRAM . 18 

MAN-MOD/THEORY . 18 

MODIFY  DATA . 27 

MODULES . 17 

MURPHY'S  LAW . 31 

NUMERICAL  DISPLAY . 40 

PARAMETERS . 27 

PR#6 . 32,34 

PRESS . 20 

PRINT  II . 18 

REAL  PRECISION . 40 

RECALL . 26 

RECOVERY . 31 

REENTER . 20 

RESET  KEY . 32 

RESET  STOCKS . 27,30 

RESPONSE  TERMINOLOGY . 20 

RETURN  (MENU) . 30 

RE  VERIFY . 26 

ROUND  OFF . 40 

RULE  1 . 31 

RUN . 32 

SAVE  DATA . 23,30 

SCREEN  DISPLAY . 28 

SOFTWARE . 17 

STARTING  UP . 19 

STOCK  RESET . 24,30 

THEORY . 17,21 

VARIABLES  DEFINED . 26 
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APPENDIX  A 


MAN-MOD/HELIO  MODULE 
PROGRAM  LISTING 


The  MAN-MOD/HELLO  module  ia  written  in  Apple  II  Apple¬ 
soft  basic.  The  program  was  listed  using  XLISTER,  a  Beagle 
Brothers  Inc.  program. 


4? 


.  :  -  £.■•«« 


MAN-MOD/HELLO  (PROGRAM  LISTING) 


1000  REM  MAN-MOD/HELLO  PROGRAM 


1002  D$  *  CHR$  (4) 

:  Q$  =  CHR$  (34) 

:  REM  CTRL=D  *  " 


1 004  HOME 
:  VTAB  9 
:  HTAB  13 

:  PRINT  "MAN-MOD  PROGRAM" 

:  VTAB  11 
:  HTAB  16 

:  PRINT  "MARCH  1982" 

:  VTAB  13 
:  HTAB  8 

:  PRINT  "NAVAL  POSTGRADUATE  SCHOOL" 
:  VTAB  15 
:  HTAB  12 

:  PRINT  "THESIS  REQUIREMENT" 

:  FOR  I  =  1  TO  2500 
:  NEXT 


1 006  TEXT 
:  HOME 
:  VTAB  1 
:  HTAB  1 
•  INVERSE 

:  PRINT  "  *  MAN-MOD  TRANSITION  MATRIX  PROGRAM  *  " 
:  NORMAL 


1 008  VTAB  23 
:  HTAB  1 

:  FOR  I  =  1  TO  39 
:  PRINT  " * " ; 

:  NEXT 


1 01 0  SPEED*  1 00 


1012  VTAB  8 
:  HTAB  15 

:  PRINT  "MAN-MOD  IS" 

:  PRINT 
:  HTAB  9 

:  PRINT  "AN  APPLE  ADAPTATION  OF" 

:  PRINT 
:  HTAB  9 

:  PRINT  "BARTHOLOMEW  AND  FORBES'" 
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7T 


PRINT 
HTAB  2 

PRINT  Q$"BASEQN"Q$"  -  A  MARKOV  TRANSITION  MODEL" 


1014  SPEED*  255 

:  FOR  I  *  1  TO  1500 
:  NEXT  I 


1016  TEXT 
:  HOME 
:  VTAB  1 
:  HTAB  1 
•  INVERSE 

:  PRINT  "  *  MAN-MOD  TRANSITION  MATRIX  PROGRAM  *  " 
:  NORMAL 


1 01 8  VTAB  4 
:  HTAB  11 

:  PRINT  '^TERMINOLOGY  REVIEW 
:  HTAB  11 

:  PRINT  " - " 


1 020  VTAB  7 
:  HTAB  1 
s  INVERSE 

:  PRINT  "(A)  ACCEPT:"; 

:  NORMAL 
:  HTAB  14 

:  PRINT  "ACCEPT  SCREEN  DISPLAY,  PRO-" 
:  VTAB  8 
:  HTAB  1 4 

:  PRINT  "CEED  TO  NEXT  ROUTINE" 


1022  VTAB  10 
:  HTAB  1 
:  INVERSE 

:  PRINT  "(E)  ESCAPE:"; 

:  NORMAL 
:  HTAB  14 

:  PRINT  "ABORT  PRESENT  ROUTINE,  RE-" 
:  HTAB  14 

:  PRINT  "TURN  TO  MENU" 


1  024  VTAB  1  3 
;  HTAB  1 
:  INVERSE 
:  PRINT  "INPUT:"; 

:  NORMAL 
:  HTAB  14 

:  PRINT  "CALLS  FOR  A  DATA  INPUT," 
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HTAB  14 

PRINT  "ONCE  ENTERED  PRESS  RETURN" 


1 026  VTAB  1  6 
:  HTAB  1 
:  INVERSE 
:  PRINT  "PRESS:"; 

:  NORMAL 
:  HTAB  14 

:  PRINT  "SELECT  CHOICE  OP  SCREEN  0P-" 
:  VTAB  17 
:  HTAB  14 

:  PRINT  "TIONS,  AND  PRESS  CHOICE" 


1  028  VTAB  1  9 
:  HTAB  1 
:  INVERSE 

:  PRINT  "(R)  REENTER:"; 

:  NORMAL 
:  HTAB  14 

:  PRINT  "RE-INPUT  VALUES  DISPLAYED" 
:  VTAB  20 
:  HTAB  14 

:  PRINT  "ON  SCREEN" 


1 030  VTAB  23 
:  HTAB  1 

:  FOR  I  =  1  TO  39 
:  PRINT  " » "  ; 

:  NEXT 


1 032  VTAB  24 
:  HTAB  7 

:  PRINT  "PRESS  RETURN  TO  CONTINUE  "; 
:  GET  G$ 


2000  DIM  N(9) 

:  REM  INITIAL  CLASS  VECTOR 


2002  DIM  P(9,9) 

:  REM  TRANSITION  MATRIX  PLOW  RATES 


2004  DIM  R(9) 

:  REM  INFLOW  SPECIFICATION  AND  OPTION 


2006  DIM  X(9) 

:  REM  TEMPORARY  MATRIX  VECTOR 


2008  DIM  Q ( 9 ) 

:  REM  NEW  TRANSITION  MATRIX 


46 


3000  TEXT 
:  HOME 
:  VTAB  11 
:  HTAB  5 

:  PRINT  " <MAN-MOD  PROGRAM  BEING  LOADED >" 


3002  PRINT  D$; "BRUN  MAN-MOD/FORMATTER" 


3004  PRINT  D$; "BLOAD  MAN-MOD/LINKER,  A520" 


3006  CALL  52O"MAN-M0D/ PROGRAM" 
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APPENIDX  B 


MAN-MOD /THEORY  MODULE 
PROGRAM  LISTING 


The  MAN-MOD/THEORY  module  is  witten  in  Apple  II  Apple¬ 
soft  basic.  The  program  was  listed  using  XLISTER,  a  Beagle 
Brothers  Inc.  program. 
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MAN-MOD/THEORY  (PROGRAM  LISTING) 


1000  D$  =  CHR$  (4-) 
:  REM  CTRL-D 


1002  REM  MAN-MOD/INTRODUCTION  PROGRAM 


1 004  GOSUB  9000 


1 006  VTAB  5 
:  HTAB  8 

:  PRINT  "< THEORY  AND  DEFINITIONS>" 
:  HTAB  8 

:  PRINT  " - " 


1 008  VTAB  9 
:  HTAB  5 

:  PRINT  " ( 1 )  MAN-MOD  THEORY" 
:  PRINT 


1010  HTAB  5 

:  PRINT  "(2)  VARIABLE  DEFINITIONS” 
:  PRINT 


1  01 2  HTAB  5 

:  PRINT  "(3)  OPTIONS  AVAILABLE" 
:  PRINT 


1  01  4  HTAB  5 

:  PRINT  "(4)  REFERENCES  &  ACKNOWLEDGMENTS" 
:  PRINT 


1016  HTAB  5 

:  PRINT  "(5)  RETURN  TO  MAIN  MENU" 
:  PRINT 


1  01  8  GOSUB  91 00 


1020  IF  G  <  1  OR  G  >  5  THEN  1018 


1022  ON  G  GOTO  2000,3000,4000,5000,6000 


2000  GOSUB  9000 


2002  VTAB  3 
:  HTAB  13 

:  PRINT  "MAN-MOD  THEORY" 
:  VTAB  6 
:  HTAB  3 
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PRINT  "A  BASIC  EXPLANATION  OP  A  MARKOV  CHAIN" 
VTA3  8 

PRINT  "MODEL  IS  NEEDED  TO  UNDERSTAND  MAN-MOD.  A" 
VTAB  10 

PRINT  "MARKOV  CHAIN  MODEL  ASSUMES  THAT  AN  IN-" 


2004  VTAB  1 2 

:  PRINT  "DIVIDUAL  WILL  MOVE  INDEPENDENTLY  PROM” 

:  VTAB  14 

:  PRINT  "ONE  CLASS  TO  ANOTHER.  INDIVIDUAL  MOVES" 

:  VTAB  16 

:  PRINT  "ARE  ACCOMPLISHED  WITH  TRANSITION  PROBA-" 


2006  VTAB  1 8 

:  PRINT  "BILITIES  THAT  DO  NOT  VARY  OVER  TIME.  THE" 
:  VTAB  20 

:  PRINT  "TRANSITION  PROBABILITIES  ARE  ARRANGED  IN" 
:  GOSUB  9300 
:  IP  G$  =  "M"  GOTO  1004 


2008  VTAB  3 
:  HTAB  1 
:  CALL  -  958 
:  VTAB  4 

:  PRINT  "AN  ARRAY  KNOWN  AS  A  TRANSITION  MATRIX." 
:  VTAB  6 

:  PRINT  "THE  ELEMENTS  OP  THE  ARRAY  ARE  LABELED  AS" 
:  VTAB  8 

:  PRINT  "FOLLOWS 


2010  VTAB  11 
:  HTAB  3 

:  PRINT  "P(1,1)  P( 1 ,2)  P(1,3),...,P(1,K)  W(1)" 

:  VTAB  13 
:  HTAB  3 

:  PRINT  " P ( 2 , 1  )  P(2,2) . ,P(2,K)  W(2)" 

201 2  VTAB  1 5 
:  HTAB  3 
:  PRINT  "..." 

:  VTAB  IT 
:  HTAB  3 

:  PRINT  " . " 

:  VTAB  19 
:  HTAB  3 

:  PRINT  " P ( K ,  1  )  P(K, 2 ) . . P(K,K)  W(K)" 

:  XX  =  11 
:  FOR  I  =  1  TO  9 
:  VTAB  (XX) 

:  HTAB  1 
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INVERSE 
PRINT  "  " 

XX  =  XX  +  1 
NEXT 
NORMAL 
GOSUB  9500 

IP  G$  =  "M"  GOTO  1004 


201 4  VTAB  3 
:  HTAB  1 
:  CALL  -  958 
:  VTAB  4 
:  HTAB  3 

:  PRINT  "THE  ELEMENT  P(I,J)  OP  THE  ARRAY  IS  THE" 

:  VTAB  6 

:  PRINT  "PROBABILITY  THAT  AN  INDIVIDUAL  IN  CLASS" 
:  VTAB  8 

:  PRINT  "•!»  AT  THE  BEGINNING  OP  A  TIME  INTERVAL" 


201  6  VTAB  1 0 

:  PRINT  "WILL  MOVE  TO  CLASS  'J'  AT  THE  END  OP" 

:  VTAB  12 

:  PRINT  "THAT  TIME  PERIOD.  THE  AMOUNT  W(I)  IS" 

:  VTAB  14 

:  PRINT  "THE  PROBABILITY  THAT  THE  INDIVIDUAL  IN" 
:  VTAB  16 

:  PRINT  "CLASS  'I',  AT  THE  START  OP  AN  INTERVAL," 


201  8  VTAB  1  8 

:  PRINT  "HAS  LEFT  THE  SYSTEM  3Y  THE  END  OP  THE  " 
.  VTAB  20 

:  PRINT  "INTERVAL.  THE  ASSUMPTIONS  ARE  THAT  AN" 

:  GOSUB  9300 
:  IP  G$  =  "M"  GOTO  1004 


2020  VTAB  3 
:  HTAB  1 
:  CALL  -  958 
:  VTAB  4 

:  PRINT  "INDIVIDUAL  MUST  STAY  WHERE  HE  IS,  MOVE" 

:  VTAB  6 

:  PRINT  "TO  ANOTHER  CLASS,  OR  LEAVE.  THE  SUM  OP" 

:  VTAB  8 

:  PRINT  "PROBABILITIES  IN  THE  CLASS  ROW,  P(I,1)+" 
:  VTAB  10 

:  PRINT  "...+  P( I , K)  +  W(I),  MUST  EQUAL  ONE." 


2022  VTAB  1 2 
:  HTAB  3 

:  PRINT  "THE  MATRIX  (P)  IS  THE  MATRIX  OP  THE" 
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VTAB  14 

PRINT  "P(I,J)'S.  THE  WASTAGE  VECTOR  (W)  IS  THE" 
VTAB  16 

PRINT  "VECTOR  W( 1 ) , . . , V(K) .  IT  IS  IMPLICIT  IN" 
VTAB  18 

PRINT  "IN  MARKOV  MODELS  THAT  TIME  PERIODS  ARE" 


2024  VTAB  20 

:  PRINT  "DISCRETE  AND  OP  EQUAL  DURATION." 
:  GOSUB  9300 
:  IP  G$  =  "M"  GOTO  1004 


2026  VTAB  3 
:  HTAB  1 
:  CALL  -  958 
:  VTAB  4 
:  HTAB  3 

:  PRINT  "THE  PINAL  INPUT  IS  RECRUITMENT.  THE" 

:  VTAB  6 

:  PRINT  "RECRUITMENT  VECTOR  DESCRIBES  THE  NUMBER" 
:  VTAB  8 

:  PRINT  "OP  INDIVIDUALS  THAT  WILL  REPLENISH  THE" 


2028  VTAB  1 0 

:  PRINT  "CLASSES  EACH  PERIOD.  THE  TOTAL  RECRUIT-" 

:  VTAB  12 

:  PRINT  "MENT  IS  REFERRED  TO  AS  R,  AND  IS  THE  SUM" 
:  VTAB  14 

:  PRINT  "OP  THE  ELEMENTS  OP  THE  RECRUITMENT  VEC-" 

:  VTAB  16 

:  PRINT  "TOR  R( 1 ) , . . , R(K) .  THE  RECRUITMENT  VECTOR" 


2030  VTAB  1 8 

:  PRINT  "CAN  BE  EXPRESSED  BY  EITHER  INTEGER  NUM-" 

:  VTAB  20 

:  PRINT  "BERS  THAT  AUGMENT  THE  CLASSES  OR  BY  PRO-" 
:  GOSUB  9300 
:  IP  G$  =  "M"  GOTO  1 1 00 


2032  VTAB  3 
:  HTAB  1 
:  CALL  -  958 
:  VTAB  4 

:  PRINT  "PORTIONS,  THAT  ADD  TO  ONE,  OP  A  TOTAL" 
:  VTAB  6 

:  PRINT  "RECRUITMENT." 

:  VTAB  8 
:  HTAB  3 

:  PRINT  "THE  MARKOV  CHAIN  MODEL,  MAN-MOD,  AL-" 
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2034  VTAB  10 

:  PRINT  "LOWS  THE  USER  TO  ANALYZE  INTERCONNECTED" 

:  VTAB  12 

:  PRINT  "STOCKS  AND  PLOWS  PROM  ASSUMPTIONS  ABOUT" 

:  VTAE  14 

:  PRINT  "INDIVIDUAL  CLASS  TRANSITIONS  AND  TO  VARY" 
:  VTAB  16 

:  PRINT  "THE  PROBABILITIES  THAT  AFFECT  TRANS I -" 


2036  VTAB  1 8 

:  PRINT  "TIONING.  FOR  A  MORE  DETAILED  EXPLANATION" 
:  VTAB  20 

:  PRINT  "OF  MARKOV  THEORY,  BARTHOLOMEW  AND  FORBES" 
:  GOSUB  9300 
:  IF  G$  =  "M"  GOTO  1004 


2038  VTAB  3 
:  HTAB  1 
:  CALL  -  958 
:  VTAB  4 

:  PRINT  "BOOK,  "  CHR$  (34) "STATISTICAL  TECHNIQUES  FO 
R  MAN-" 

:  VTAB  6 

.  pRINT  «•  POWER  PLANNING"  CHR$  (34)",  IS  RECOMMENDED." 


2040  GOSUB  9200 


2042  GOTO  1004 


3000  GOSUB  9000 


3002  VTAB  4 
:  HTAB  10 

:  PRINT  "VARIABLES  DEFINITIONS" 


3004  VTAB  7 
:  HTAB  3 

:  PRINT  " ( 1 )  FILE  NAME" ; 

:  HTAB  23 

:  PRINT  "(7)  PERCENT  (*)" 

:  VTAB  9 
:  HTAB  3 

:  PRINT  "(2)  INITIAL  3TKS" ; 
:  HTAB  23 

:  PRINT  "(8)  INC  TIME" 

:  VTAB  1 1 
:  HTAB  3 

:  PRINT  "(3)  MATRIX  (Pi"; 

:  HTAB  23 

:  PRINT  "(9)  (P)  ELEMENT" 
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3006  VTAB  1 3 
:  HTAB  3 

:  PRINT  "(4)  RECRUITMENT"; 
:  HTAB  23 

:  PRINT  "(10)  (P)  ROW" 

:  VTAB  15 
:  HTAB  3 

:  PRINT  "(5)  OPTIONS”; 

:  HTAB  23 

:  PRINT  "(11)  RESET  STKS" 

:  VTAB  17 
:  HTAB  3 

:  PRINT  "(6)  TIME  (T)”; 

:  HTAB  23 

:  PRINT  "(12)  RETURN  MENU" 


3008  VTAB  23 
:  HTAB  1 

:  FOR  I  =  1  TO  39 
:  PRINT  " • " ; 

:  NEXT 
:  VTAB  24 
:  HTAB  11 

:  PRINT  "INPUT  SELECTION  ”; 
:  INPUT  G$ 

:  G  =  VAL  (G$) 


3010  IF  G  <  1  OR  G  >  1 2  GOTO  3000 


3012  ON  G  GOTO  3060,3120,3180,3240,3500,3360,3420,3480,35 
40,3600,3660,1004 


3060  GOSUB  9000 
:  VTAB  3 
:  HTAB  16 

:  PRINT  "FILE  NAME" 

:  VTAB  6 
:  HTAB  3 

:  PRINT  "FILE  NAME  IS  A  MAXIMUM  15  CHARACTER" 

:  VTAB  8 

:  PRINT  "NAME  ASSIGNED  TO  THE  DATA  INPUT.  THE  IN-” 
:  VTAB  10 

:  PRINT  "PUT  DATA  MAY  BE  SAVED  WITH  THIS  NAME  TO" 


3062  VTAB  1 2 

:  PRINT  "A  DISK.  IF  THE  DATA  INPUT  IS  CHANGED  OR" 
:  VTAB  14 

:  PRINT  "MODIFIED,  THE  FILE  NAME  MAY  3E  CHANGED" 
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:  VTAB  16 

:  PRINT  "TO  SAVE  THE  REVISED  DATA  WITHOUT  DES-" 


3064  VTAB  1 8 

:  PRINT  "TROYING  THE  PREVIOUSLY  SAVED  DATA." 
:  GOSUB  9200 
:  GOTO  3000 


3120  GOSUB  9000 
:  VTAB  3 
:  HTAB  15 

:  PRINT  "INITIAL  STKS" 

:  VTAB  6 
:  HTAB  3 

:  PRINT  "THE  INITIAL  STOCKS  REPRESENT  THE  ORIG-" 

:  VTAB  8 

:  PRINT  "INAL  GRADE  OR  CLASS  'I'  SIZES.  K  IS  THE" 

:  VTAB  10 

:  PRINT  "NUMBER  OP  CLASSES.  THE  INITIAL  STOCKS" 


31  22  VTAB  1 2 

:  PRINT  "ARE  THOSE  WITHIN  THE  SYSTEM  AT  TIME  PER-" 
:  VTAB  14 

:  PRINT  "IOD  ZERO,  (0).  THE  STOCKS  ARE  ENTERED  AS" 
:  VTAB  16 

:  PRI-NT  "A  ROW  VECTOR  (N)  WITH  COMPONENTS:  N(l),." 


3124  VTAB  18 

:  PRINT  " . . , N ( K ) .  MAN-MOD'S  PROGRAM  INPUT  PROMPT" 
:  VTAB  20 

:  PRINT  "FOR  STOCK  VECTOR  (N)  IS  R1  FOR  ROW  1  AND" 
:  GOSUB  9500 
:  IF  G$  =  "M"  GOTO  3000 


3126  GOSUB  9000 
:  VTAB  4 

:  PRINT  "Cl  FOR  COLUMN  1.  TO  INPUT  STOCK  N(1)," 
:  VTAB  6 

:  PRINT  "THE  USER  WOULD  RESPOND  TO  (R1,C1:?)  BY" 
:  VTAB  8 

:  PRINT  "INPUTTING  THE  N(1)  STOCK  COMPONENT.  THE" 
:  VTAB  10 

:  PRINT  "USER  WOULD  INPUT  N(2)  IN  RESPONSE  TO  THE" 


3128  VTAB  12 

:  PRINT  "(R1,C2:?)  PROMPT.  CLASS  STOCKS  ARE  INPUT" 
:  VTAB  14 

:  PRINT  "UNTIL  'K'  STOCKS  HAVE  BEEN  REACHED.  K  IS" 
:  VTAB  16 

:  PRINT  "THE  NUMBER  OF  CLASSES  IN  THE  SYSTEM." 
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:  GOSUB  9200 
:  GOTO  3000 


3130  GOSUB  9200 
:  GOTO  3000 


3180  GOSUB  9000 
:  VTAB  3 
:  HTAB  16 

:  PRINT  "MATRIX  (P)" 

:  VTAB  6 
:  HTAB  3 

:  PRINT  "MATRIX  (P)  SUMMARIZES  THE  TRANSITIONAL" 

:  VTAB  8 

:  PRINT  "PLOWS  OP  STOCKS  WITHIN  THE  SYSTEM.  THE" 
:  VTAB  10 

:  PRINT  "PLOWS  ARE  LISTED  IN  A  (K  X  K)  MATRIX,  K" 


31  82  VTAB  1 2 

:  PRINT  "BEING  LIMITED  TO  9  CLASSES.  EACH  CLASS" 
:  VTAB  14 

:  PRINT  "VECTOR  REPRESENTS  PLOW  RATES  PROM  THAT" 
:  VTAB  16 

:  PRINT  "CLASS.  THE  RESPONSE  TO  THE  PROMPT  R(I)," 


3184  VTAB  18 

:  PRINT  ”C(J)  SHOULD  BE  THE  PLOW  RATE  P(I,J)  PROM" 
:  VTAB  20 

:  PRINT  "CLASS  'I'  TO  CLASS  'J'." 

:  GOSUB  9200 
:  GOTO  3000 


3240  GOSUB  9000 
:  VTAB  3 
:  HTAB  16 

:  PRINT  "RECRUITMENT" 

:  VTAB  6 
:  HTAB  3 

:  PRINT  "RECRUITMENT  'R’  IS  THE  NUMBER  OP  INDI-" 

:  VTAB  8 

:  PRINT  "VIDUALS  ENTERING  THE  SYSTEM.  THE  SYSTEM" 
:  VTAB  10 

:  PRINT  "IS  NORMALLY  MAINTAINED  AT  A  STEADY  STATE" 


3242  VTAB  1 2 

:  PRINT  "THROUGH  RECRUITMENT.  FLUCTUATION  IN  RE-" 

:  VTAB  14 

:  PRINT  "CRUITMENT  WILL  CAUSE  A  SYSTEM  TO  CHANGE" 

:  VTAB  16 

:  PRINT  "IN  SIZE.  MAN-MOD  RECRUITMENT  INPUTS  VARY" 
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3244  VTAB  1 8 

:  PRINT  '’WITH  THE  CALCULATION  OPTION  CHOICE.  IN" 

:  VTAB  20 

:  PRINT  "THE  FIXED  RECRUITMENT  VECTOR,  THE  ACTUAL" 
:  GOSUB  9300 
:  IF  G$  =  "M"  GOTO  3000 


3246  GOSUB  9000 
:  VTAB  4 

:  PRINT  "NUMBER  ENTERING  EACH  CLASS  'I'  IS  INPUT," 
:  VTAB  6 

:  PRINT  "I.E.  (70,  20,  10);  RECRUITMENT  100.  IN" 

:  VTAB  8 

:  PRINT  "THE  OTHER  OPTIONS,  2-5,  RECRUITMENT  IS" 


3248  VTAB  1 0 

:  PRINT  "A  WHOLE  NUMBER,  I.E.  100,  AND  IS  DISTRI-" 
:  VTAB  12 

:  PRINT  "BUTED  WITHIN  THE  SYSTEM  BY  AN  HISTORICAL" 
:  VTAB  14 

:  PRINT  "PROPORTION  VECTOR,  E.G.  (.70,  .20,  .10).” 


3250  VTAB  1 6 

;  PRINT  "THE  USER  WILL  BE  PROMPTED  BY  THE  APPRO-" 

:  VTAB  18 

:  PRINT  "PRIATE  INPUT  COMMANDS.  THE  PROGRAM  AL-" 

:  VTAB  20 

;  PRINT  "LOWS  FOR  GROWTH  OR  DECAY,  DEPENDING  ON” 
;  GOSUB  9300 
:  IF  G$  =  "M"  GOTO  3000 


3252  GOSUB  9000 
:  VTAB  4 

:  PRINT  "THE  USER  INPUT.  OPTIONS  2-5  WILL  ASK" 

:  VTAB  6 

:  PRINT  "FOR  AN  ADDITIVE  NUMBER  OR  A  MULTIPLICA-" 

:  VTAB  8 

:  PRINT  "TIVE  FACTOR  TO  ACCOMPLISH  THIS.  THE  USER” 


3254  VTAB  1 0 

:  PRINT  "WILL  INPUT  THE  DESIRED  SYSTEM  GROWTH  OR” 
:  VTAB  12 

:  PRINT  "CONTRACTION." 

:  GOSUB  9200 
:  GOTO  3000 


3300  GOSUB  9000 
:  VTAB  3 
:  HTAB  18 
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PRINT  "OPTIONS” 

VTAB  6 
HTAB  4 

PRINT  "OPTIONS  1  -  5  ALLOW  THE  MAN-MOD  USER" 
VTAB  8 

PRINT  "TO  MANIPULATE  DATA  ENTERED.  THE  EFFECTS" 


3302  VTAB  1 0 

:  PRINT  "OF  DIFFERENT  TRANSITIONS  AND  FLOW  RATES” 

:  VTAB  12 

:  PRINT  "CAN  BE  OBSERVED.  AN  EXPLANATION  OF  EACH” 

:  VTAB  14 

:  PRINT  "OPTION  IS  OBTAINED  BY  SELECTING  THE  MENU" 


3304  VTAB  1 6 

:  PRINT  "CHOICE,  OPTIONS  AVAILABLE." 
:  GOSUB  9200 
:  GOTO  3000 


3360  GOSUB  9000 
:  VTAB  3 
:  HTAB  17 

:  PRINT  "TIME  (T)” 

:  VTAB  6 
:  HTAB  4 

:  PRINT  "TIME  (T)  IS  A  USER  INPUT  TO  THE  MAN-" 

:  VTAB  8 

:  PRINT  "MOD  PROGRAM.  IT  DETERMINES  THE  NUMBER  OF" 
:  VTAB  10 

:  PRINT  "PERIODS  FOR  WHICH  CALCULATIONS  ARE  TO  BE" 


3362  VTAB  1 2 

:  PRINT  "PERFORMED.  CALCULATIONS  MAY  BE  DONE  RE-" 
:  VTAB  14 

:  PRINT  "PEATEDLY,  AND  CHANGES  OR  MODIFICATIONS" 

:  VTAB  16 

:  PRINT  "TO  PARAMETERS  CAN  BE  IMPLEMENTED  THROUGH" 


3364  VTAB  18 

:  PRINT  "THE  MAIN  MENU.  THE  USER  MAY  INCREASE  THE" 
:  VTAB  20 

:  PRINT  "NUMBER  OF  PERIODS  EITHER  BY  USING  ’TIME" 

:  GOSUB  9300 
:  IF  G$  =  "M"  GOTO  3000 


3366  GOSUB  9000 
:  VTAB  4 

:  PRINT  "(T)'  OR  THE  'EXT  RANGE  +T '  CHOICE  ON  THE" 
:  VTAB  6 

:  PRINT  "THE  CHANGE  OR  MODIFY  MENU.  TIME  PERIOD" 
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VTAB  8 

PRINT  "ZERO  (0)  IS  THE  INITIAL  PERIOD;  PERIOD" 


3368  VTAB  10 

:  PRINT  "ONE  (1)  IS  ONE  TIME  PERIOD  LATER." 
:  GOSUB  9200 
:  GOTO  3000 


3420  GOSUB  9000 
:  VTAB  3 
:  HTAB  16 

:  PRINT  "PERCENT  (*)" 

:  VTAB  6 
:  HTAB  3 

:  PRINT  "PERCENT  (*)  IS  AN  OPTION  SELECTION  DE-" 

:  VTAB  8 

:  PRINT  "TERMINED  BY  THE  MAN-MOD  USER.  IT  AFFECTS" 


3422  VTAB  1 0 

:  PRINT  "ONLY  THE  STOCKS  PRINT  OUT  FORMAT.  THERE" 
:  VTAB  12 

:  PRINT  "ARE  THREE  CHOICES  FROM  WHICH  TO  SELECT." 
:  VTAB  14 

:  PRINT  "CHOICE  1  SHOWS  NO  PERCENTAGES,  JUST  THE" 


3424  VTAB  1 6 

:  PRINT  "ACTUAL  STOCKS.  CHOICE  2  GIVES  INDIV  DUAL" 
:  VTAB  18 

:  PRINT  "CLASS  'I'  STOCK  PERCENTAGES  BASED  ON  THE" 
:  VTAB  20 

:  PRINT  "TOTAL  FOR  THAT  PERIOD,  ALONG  WITH  THE" 

:  GOSUB  9300 
:  IF  G$  =  "M"  GOTO  3000 


3426  GOSUB  9000 
:  VTAB  4 

:  PRINT  "THE  STOCKS.  CHOICE  3  WILL  SHOW  THE  CUR-" 

:  VTAB  6 

:  PRINT  "RENT  STOCKS  AS  PERCENTAGES  OF  THE  ORIG-" 

:  VTAB  8 

:  PRINT  "INAL  TIME  PERIOD  STOCKS.  THE  PERCENT  0P-" 


3428  VTAB  10 

:  PRINT  "TION  MAY  BE  CHANGED  AT  ANY  TIME  THROUGH" 
:  VTAB  12 

:  PRINT  "THE  CHANGE  OR  MODIFY  MAIN  MENU." 

:  GOSUB  9200 
j  GOTO  3000 


3480  GOSUB  9000 
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7TAB  3 
HTAB  15 
PRINT  " 
VTAB  6 
HTAB  4 
PRINT  " 
VTAB  8 
PRINT  " 
VTAB  10 
PRINT  " 


EXT  RANGE  +T" 

EXT  RANGE  +T  ALLOWS  THE  MAN-MOD  USER" 

TO  INCREASE  TIME  (T).  EXTEND  RANGE  +T  IS 
THE  END  PERIOD  FOR  CALCULATIONS.  THE  EX- 


If 


ft 


3482  VTAB  1 2 

:  PRINT  "TENDED  RANGE  WILL  NOT  BE  ADDED  TO  TIME," 
:  VTAB  14 

:  PRINT  "IT  WILL  REPLACE  THE  TIME  (T).  IT  IS  USED" 
:  VTAB  16 

:  PRINT  "IN  CONJUNCTION  WITH  THE  CONTINUE  RANGE" 


3484  VTAB  1 8 

:  PRINT  "OPTION  OP  THE  MAIN  PROGRAM'S  CALCULATION" 
:  VTAB  20 

:  PRINT  "ROUTINE." 

:  GOSUB  9200 
:  GOTO  3000 


3540  GOSUB  9000 
:  VTAB  3 
:  HTAB  16 

:  PRINT  "(P)  ELEMENT" 

:  VTAB  6 
:  HTAB  3 

:  PRINT  "THE  (P)  ELEMENT  VARIABLE  CHOICE  ALLOWS" 

:  VTAB  8 

:  PRINT  "THE  MAN-MOD  USER  TO  CHANGE  OR  CORRECT" 

:  VTAB  10 

:  PRINT  "PARTICULAR  ELEMENTS  OP  THE  MATRIX  (P)." 


3542  VTAB  1 2 

:  PRINT  "THE  USER  CAN  CHANGE  AN  ELEMENT  THROUGH" 

:  VTAB  14 

:  PRINT  "THE  'CHANGE  OR  MODIFY'  MENU  OPTION.  THE" 
:  VTAB  16 

:  PRINT  "OPTION  CAN  BE  USED  TO  MANIPULATE  STOCKS" 


3544  VTAB  1 8 

:  PRINT  "AND  TRANSITIONAL  FLOWS." 
:  GOSUB  9200 
:  GOTO  3000 


3600  GOSUB  9000 
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7TAB  3 
STAB  17 

PRINT  "(P)  ROW" 

VTAB  6 
HTAB  3 

PRINT  "THE  (P)  ROW  OPTION  IS  SIMILAR  TO  THE" 
VTAB  8 

PRINT  "(P)  ELEMENT  OPTION.  THE  ONLY  DIFFERENCE" 


3602  VTAB  1 0 

:  PRINT  "IS  THAT  THIS  SELECTION  WILL  CHANGE  OR" 
:  VTAB  12 

:  PRINT  "MODIFY  A  WHOLE  ROW  OF  THE  MATRIX  (P)." 

:  GOSUB  9200 
:  GOTO  3000 


3660  GOSUB  9000 
:  VTAB  3 
:  HTAB  16 

:  PRINT  "RESET  STKS" 

:  VTAB  6 
:  HTAB  3 

:  PRINT  "THE  RESET  STKS  OPTION  ALLOWS  THE  USER" 


3662  VTAB  3 

:  PRINT  "TO  RESET  THE  CALCULATED  STOCKS  TO  THE" 

:  VTAB  10 

:  PRINT  "INITIAL  INPUT.  BY  SELECTING  CALCULATION" 

:  VTAB  1 2 

:  PRINT  "OPTIONS  1  OR  2,  THE  STOCKS  WILL  BE  RESET" 


3664  VTAB  14 

:  PRINT  "AUTOMATICALLY  TO  ORIGINAL  DATA  INPUTS." 
:  VTAB  16 

:  PRINT  "MAN-MOD  RESET  OPTION  IS  LOCATED  IN  THE" 

:  VTAB  18 

:  PRINT  "'CHANGE  OR  MODIFY'  MAIN  MENU." 

:  GOSUB  9200 
:  GOTO  3000 


4000  GOSUB  9000 


4002  VTAB  4 

:  PRINT  "OPTIONS'  REVIEW" 


4004  VTAB  7 
:  HTAB  3 

:  PRINT  "(1)  FIXED  RECRUITMENT  VECTOR" 
:  VTAB  9 
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HTAB  3 

PRINT  "(2)  ADDITIVE  (RECRUIT  SIZE)" 

VTAB  11 
HTAB  3 

PRINT  "(3)  MULTIPLICATIVE  (RECRUIT  SIZE)" 


4006  VTAB  1 3 
:  HTAB  3 

:  PRINT  "(4)  ADDITIVE  (SYSTEM  SIZE)" 

:  VTAB  15 
:  HTAB  3 

:  PRINT  "(5)  MULTIPLICATIVE  (SYSTEM  SIZE)" 
:  VTAB  17 
:  HTAB  3 

:  PRINT  "(6)  RETURN  TO  MENU" 


4008  COSUB  91 00 


4010  I?  C  <  1  OR  C  >  6  GOTO  4008 


4012  ON  C  GOTO  4100,4200,4300,4400,4500,1004 


41 00  VTAB  3 

:  CALL  -  958 
:  HTAB  9 

:  PRINT  "FIXED  RECRUITMENT  VECTOR" 

:  VTAB  6 
:  HTAB  3 

:  PRINT  "THE  FIXED  RECRUITMENT  VECTOR  PERMITS" 

:  VTAB  8 

:  PRINT  "THE  USER  TO  ENTER  IN  CLASS  'I*  A  CON-" 

:  VTAB  10 

:  PRINT  "STANT  RECRUITMENT  NUMBER  'R',  E.G.," 


41  02  VTAB  1  2 

:  PRINT  "(52,15,3),  EACH  PERIOD.  THE  OPTION  OUT-" 
:  VTAB  14 

:  PRINT  "PUT  YIELDS  PREDICTED  STOCK  VECTORS  FOR" 

:  VTAB  16 

:  PRINT  "FUTURE  PERIODS  BASED  ON  THIS  FIXED  RE-" 

:  VTAB  18 

:  PRINT  "CRUITMENT. " 

:  GOSUB  9200 
:  GOTO  4000 


4200  VTAB  3 

:  CALL  -  958 
:  HTAB  10 

:  PRINT  "ADDITIVE  (RECRUIT  SIZE)” 
:  VTAB  6 
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HTAB  3 

PRINT  "THE  ADDITIVE  RECRUIT  SIZE  OPTION  PER-" 
VTAB  8 

PRINT  "MITS  ONE  TO  INCREASE  THE  RECRUITMENT  IN" 


4202  VTAB  1 0 

:  PRINT  "CLASS  'I'  EACH  PERIOD  BY  A  CONSTANT  NUM-" 
:  VTAB  12 

:  PRINT  "BER.  EXAMPLE:  TO  INCREASE  CLASS  • 1 '  RE-" 
:  VTAB  14 

:  PRINT  "CRUITMENT  BY  7,  STARTING  WITH  A  RECRUIT-" 
:  VTAB  16 

:  PRINT  "MENT  OP  70;  RECRUITMENT  FOR  PERIOD  1" 


4204  VTAB  1 8 

:  PRINT  "WOULD  BE  77,  FOR  PERIOD  2  WOULD  BE  84," 
:  VTAB  20 

:  PRINT  "AND  SO  ON.  THE  PROGRAM  WILL  ASK  THE  USER" 
:  GOSUB  9300 
:  IF  G$  =  "M"  GOTO  4000 


4206  VTAB  3 
:  HTAB  1 
:  CALL  -  958 
:  VTAB  4 

:  PRINT  "FOR  A  TOTAL  RECRUITMENT  ’R\  E.G.  100,  A" 
:  VTAB  6 

:  PRINT  "PERIOD  ADDITIVE  NUMBER,  E.G.  10,  AND  A" 


4208  VTAB  3 

:  PRINT  "PROPORTIONAL  RECRUITMENT  DISTRIBUTION" 
:  VTAB  10 

:  PRINT  "VECTOR,  I.E.  ( .70, . 20, . 1 0) .  THE  PROPOR-" 
:  VTAB  12 

:  PRINT  "TIONAL  VECTOR  WILL  DISTRIBUTE  THE  TOTAL" 


4210  VTAB  14 

:  PRINT  "'R'  IN  THE  CLASSES.  EXAMPLE,  PERIOD  0," 
:  VTAB  16 

:  PRINT  "IF  TOTAL  'R'  IS  100,  DISTRIBUTION  WILL" 
:  VTAB  18 

:  PRINT  "BE  70,  20,  10.  BY  ADDING  10  TO  TOTAL" 


421 2  VTAB  20 

:  PRINT  "'R'  EACH  PERIOD,  RECRUITMENT  FOR  PERIOD" 
:  GOSUB  9300 
:  IF  G$  =  "M"  GOTO  4000 


4214  VTAB  3 
:  HTAB  1 


:  CALL  -  958 
:  VTAB  4 

:  PRINT  "1  WILL  BE  77,  22,  11,  AND  SO  ON.  SYSTEM” 


421 6  VTAB  6 

:  PRINT  "RECRUITMENT  CAN  BE  HELD  CONSTANT  BY  USE-" 
:  VTAB  8 

:  PRINT  "INC  ZERO  AS  THE  ADDITIVE  NUMBER." 

:  CO SUB  9200 
:  GOTO  4000 


4300  VTAB  3 

:  CALL  -  958 
:  HTAB  7 

:  PRINT  "MULTIPLICATIVE  (RECRUIT  SIZE)" 

:  VTAB  6 
:  HTAB  3 

:  PRINT  "MULTIPLICATIVE  RECRUIT  SIZE  IS  SIMILAR" 

:  VTAB  8 

:  PRINT  "TO  ADDITIVE  RECRUIT  SIZE.  THE  DIPPER-" 


4302  VTAB  1 0 

:  PRINT  "ENCE  IS  IN  HOW  THE  RECRUITMENT  IS  IN-" 
:  VTAB  12 

:  PRINT  "CREASED  EACH  PERIOD.  THE  TOTAL  NUMBER" 
:  VTAB  14 

:  PRINT  "OP  RECRUITS  IS  FIXED  AND  AN  HISTORIAL" 


4304  VTAB  1 6 

:  PRINT  "PROPORTION  VECTOR  IS  USED.  RECRUITMENT" 

:  VTAB  18 

:  PRINT  "IS  THEN  INCREASED  EACH  PERIOD  BY  A  MUL-" 

:  VTAB  20 

:  PRINT  "TIPLICATIVE  FACTOR,  E.C.,  1.2.  THE  TOTAL" 
:  COSUB  9300 
:  IP  C$  =  "M"  COTO  4000 


4306  VTAB  3 
:  HTAB  1 
:  CALL  -  958 
:  VTAB  4 

:  PRINT  "RECRUITMENT  ’R’,  E.C.  100,  MULTIPLIED  BY" 
:  VTAB  6 

:  PRINT  "1.2  WILL  CIVE  A  RECRUITMENT  OP  120  FOR" 


4308  VTAB  8 

:  PRINT  "PERIOD  1 .  A  REVIEW  OP  THE  ADDITIVE  RE-" 
:  VTAB  10 

:  PRINT  "CRUIT  SIZE  IS  RECOMMENDED .  THE  RECRUIT-" 
:  VTAB  12 
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:  PRINT  "MENT  SIZE  CAN  BE  HELD  CONSTANT  3Y  USING" 


4310  VTAB  14 

:  PRINT  "1.0  AS  THE  MULTIPLICATIVE  FACTOR." 
:  GOSUB  9200 
:  GOTO  4000 


4400  VTAB  3 

:  CALL  -  958 
:  HTAB  10 

:  PRINT  "ADDITIVE  (SYSTEM  SIZE)" 

:  VTAB  6 
:  HTAB  4 

:  PRINT  "THE  ADDITIVE  SYSTEM  SIZE  OPTION  PER-" 

:  VTAB  8 

:  PRINT  "MITS  THE  USER  TO  CALCULATE  THE  TOTAL  RE-" 
:  VTAB  10 

:  PRINT  "CRUITMENT  'R'  REQUIRED  TO  MAINTAIN  SYS-" 


4402  VTAB  1 2 

:  PRINT  "TEM  SIZE.  THE  USER  MAY  ELECT  TO  INCREASE" 
:  VTAB  14 

:  PRINT  "OR  DECREASE  THE  SYSTEM  BY  A  FIXED  ADDI-" 

:  VTAB  16 

:  PRINT  "TIVE  NUMBER  EACH  PERIOD,  I.E.  1 0  OR  -10." 
:  VTAB  18 

:  PRINT  "THE  OPTION  REQUIRES  A  HISTORICAL  PROPOR-" 


4404  VTAB  20 

:  PRINT  "TION  VECTOR  TO  DISTRIBUTE  RECRUITMENT." 
:  GOSUB  9300 
:  IF  G$  =  "M"  GOTO  4000 


4406  VTAB  3 
:  HTAB  1 
:  CALL  -  958 
:  VTAB  4 

:  PRINT  "AN  EXAMPLE  VECTOR  IS:  (.70,  .20,  .10)." 

:  VTAB  6 

:  PRINT  "THE  SYSTEM  MAY  BE  HELD  CONSTANT  BY  EN-" 
:  VTAB  8 

:  PRINT  "TERING  ZERO  FOR  THE  ADDITIVE  NUMBER." 

:  GOSUB  9200  GOTO  4000 


4500  VTAB  3 

:  CALL  -  958 
:  HTAB  8 

:  PRINT  "MULTIPLICATIVE  (SYSTEM  SIZE)" 
:  VTAB  6 
:  HTAB  3 
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PRINT  "THE  MULTIPLICATIVE  SYSTEM  OPTION  SIZE" 
VTAB  8 

PRINT  "IS  SIMILAR  TO  ADDITIVE  SYSTEM  SIZE.  THE" 
VTAB  10 

PRINT  "DIFFERENCE  IS  IN  HOW  THE  SYSTEM  IS  IN-" 


4502  VTAB  1 2 

:  PRINT  "CREASED  OR  DECREASED.  THE  OPTION  USES  A" 

:  VTAB  14 

:  PRINT  "MULTIPLICATIVE  FACTOR  INSTEAD  OF  AN  ADD-” 


4504  VTAB  1 6 

:  PRINT  "ITIVE  NUMBER,  I.E.  1.2  OR  .9.  TO  HOLD" 

:  VTAB  18 

:  PRINT  "THE  SYSTEM  CONSTANT  THE  USER  MAY  USE  1.0" 
:  VTAB  20 

:  PRINT  "AS  A  FACTOR.  RECRUITMENT  IS  DISTRIBUTED" 

:  GOSUB  9300 
:  IF  ff$  =  "M"  GOTO  4000 


4506  VTAB  3 
:  HTAB  1 
:  CALL  -  958 
:  VTAB  4 

:  PRINT  "BY  AN  HISTORICAL  PROPORTION  VECTOR,  I.E." 


4508  VTAB  6 

:  PRINT  "(.70,  .20,  .10)." 
:  GOSUB  9200 
:  GOTO  4000 


5000  GOSUB  9000 
:  VTAB  6 
:  HTAB  6 

:  PRINT  "REFERENCES  &  ACKNOWLEDGMENTS" 


5002  VTAB  1 1 
:  HTAB  10 

:  PRINT  "(1)  REFERENCES" 

:  VTAB  13 
:  HTAB  10 

:  PRINT  "(2)  ACKNOWLEDGMENTS" 
:  VTAB  15 
:  HTAB  10 

:  PRINT  "(3)  RETURN  TO  MENU" 


5004  GOSUB  9100 

:  IF  G  <  1  OR  G  >  3  GOTO  5004 


5006  ON  0  GOTO  5100,5200,1004 


5100  GOSUB  9000 
:  VTAB  4 
:  HTAB  13 

:  PRINT  "MAJOR  REFERENCES" 

:  VTAB  8 

:•  PRINT  "APPLE  COMPUTER  INC.,  BASIC  PROGRAMMING" 
:  VTAB  10 

:  PRINT  "REFERENCE  MANUAL,  1978" 


5102  VTAB  14 

:  PRINT  "BARTHOLOMEW,  D.  J.,  AND  FORBES,  A.  F.," 
:  VTAB  16 

:  PRINT  "STATISTICAL  TECHNQUES  FOR  MANPOWER,  2ND" 
:  VTAB  18 

:  PRINT  "ED.,  WILEY  1979." 

:  GOSUB  9200 
:  GOTO  5000 


5200  GOSUB  9000 
:  VTAB  3 
:  HTAB  14 

:  PRINT  ."ACKNOWLEDGMENT" 

:  VTAB  € 

:  HTAB  3 

:  PRINT  "MAN-MOD/FORMATTER  IS  A  PRINT  USING" 

:  VTAB  8 

:  PRINT  "ROUTINE  ALLOWING  REAL  OR  INTEGER  NUMBERS" 
:  VTAB  10 

:  PRINT  "TO  BE  FORMATTED.  IT  IS  A  MODIFIED  VER-" 


5202  VTAB  1 2 

:  PRINT  "SION  OF  'PRINT  II',  A  COMPUTER  SYSTEMS" 
:  VTAB  14 

:  PRINT  "DESIGN  COPYRIGHTED  PROGRAM.  PERMISSION" 
:  VTAB  16 

:  PRINT  "HAS  BEEN  OBTAINED  TO  UTILIZE  THE  MODI-" 


5204  VTAB  -1 8 

:  PRINT  "FIED  ROUTINE  FOR  MAN-MOD;  ANY  OTHER  AP-" 
:  VTAB  20 

:  PRINT  "PLICATION  OF  THE  ROUTINE  IS  PROHIBITED." 
:  GOSUB  9300 
:  IF  G$  =  "M"  GOTO  5000 


5206  GOSUB  9000 
:  VTAB  3 
:  HTAB  14 
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PRINT  "ACKNOWLEDGMENT " 

VTAB  6 
STAB  3 

PRINT  "THE  AUTHOR  WOULD  LIKE  TO  THANK  PROFES-" 
VTAB  8 

PRINT  "SORS  RICHARD  ELSTER  AND  JAMES  ESARY  FOR" 


5208  VTAB  1 0 

:  PRINT  "THEIR  ASSISTANCE  AND  SUPPORT  WITH  THE" 
:  VTAB  12 

:  PRINT  "MAN-MOD  ADAPTATION.  A  SPECIAL  THANKS  TO" 
;  VTAB  14 

:  PRINT  "THE  AUTHOR’S  WIFE,  SANDRA,  WHOSE  UNDER-" 


521  0  VTAB  1 6 

:  PRINT  "STANDING  WAS  STRETCHED  TO  THE  LIMITS,” 
:  VTAB  18 

:  PRINT  "BUT  WITHOUT  WHOSE  HELP  THIS  THESIS  WOULD” 
:  VTAB  20 

:  PRINT  "NOT  HAVE  BEEN  COMPLETED." 

:  GOSUB  9200 
:  GOTO  5000 


6000  HOME 
:  VTAB  11 
:  HTAB  8 

:  PRINT  ’^RETURNING  TO  MAIN  MENU>" 


6002  PRINT  D$; "BLOAD  MAN-MOD/LINKER,  A520” 


6004  CALL  520 "MAN-MOD/ PROGRAM" 


9000  TEXT 
:  HOME 
:  VTAB  1 
:  HTAB  1 

.  inverse 

:  PRINT  "  *  MAN-MOD  TRANSITION  MATRIX  PROGRAM  *  ” 
:  NORMAL 
:  RETURN 


91 00  VTAB  23 
:  HTAB  1 

:  FOR  I  =  1  TO  39 
:  PRINT  "  ; 

:  NEXT 
:  VTAB  24 
:  HTAB  12 

:  PRINT  "PRESS  SELECTION 
:  GET  G$ 
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:  G  =  VAL  (G$) 
:  RETURN 


9200  VTAB  23 

:  FOR  I  =  1  TO  39 

:  PRINT  ; 

:  NEXT 
:  VTAB  24 

:  HTAB  10 

:  PRINT  "PRESS  RETURN  FOR  MENU 
:  GET  G$ 

:  RETURN 


9300  VTAB  23 
:  HTAB  1 

:  FOR  I  =  1  TO  39 
:  PRINT  ; 

:  NEXT 
:  VTAB  24 
:  HTAB  2 

:  PRINT  "PRESS  (C)  TO  CONTINUE,  (M)  FOR  MENU  " 
:  GET  G$ 

:  RETURN 
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APPENDIX  C 


MAN -MOD/ PROGRAM  MODULE 
PROGRAM  LISTING 

The  MAN-MOD/PROGRAM  module  is  written  in  Apple  II 
Applesoft  basic.  The  program  was  listed  using  XLISTER,  a 
Beagle  Brothers  Inc.  prgram. 
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MAN-MOD/ PROGRAM  (PROGRAM  LISTING) 


1000  REM  MAN-MOD/ PROGRAM  PROGRAM:  ''FOR’*  IS  IN  QUOTES 

IN  LINES  1004,10518,10520,10524,10526,10528,1072 
2,10724,10728,10730,10732  FOR  PRINT  LISTING  ONLY 


1002  D$  =  CHR$  (4) 
:  REM  CTRL-D 


1004  PRINT  "FOR" 6,0; 
:  Q$  =  CHR$  (34) 


1006  GOSUB  20100 


1 008  VTAB  5 
:  HTAB  13 

:  PRINT  "<MAN-MOD  MENU>" 


1010  HTAB  13 
:  PRINT  " 


1  01  2  VTAB  1  0 
:  HTAB  4 

:  PRINT  "(1)  MAN-MOD  THEORY  &  DEFINITIONS" 


1014  VTAB  12 
:  HTAB  4 

:  PRINT  "(2)  MAN-MOD  OPERATIONAL  MODEL" 


1016  VTAB  14 
:  HTAB  4 

:  PRINT  "(3)  SAVE  DATA  FILE  TO  DISK" 


1018  VTAB  16 
:  HTAB  4 

:  PRINT  "(4)  EXIT  MAN-MOD  PROGRAM" 


1 020  GOSUB  20200 


1022  IF  G  <  1  OR  G  >  4  GOTO  1020 


1024  ON  G  GOTO  2000,3000,9000,9200 


2000  HOME 
:  VTAB  11 
:  HTAB  8 

:  PRINT  "< THEORY  AND  DEFINITIONS>" 


2002  PRINT  D$; "BLOAD  MAN-MOD/LINKER, A520" 
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2004  CALL  52O"MAN-MOD/THE0RY" 


3000  GOSUB  20100 


3002  VTAB  6 
:  HTAB  7 

:  PRINT  "(1)  INPUT  NEW  DATA” 
:  PRINT 


3004  HTAB  7 

:  PRINT  "(2)  RECALL  DATA  PROM  DISK” 
:  PRINT 


3006  HTAB  7 

:  PRINT  "(3)  CHANGE  OR  MODIFY  PARAMETERS” 
:  PRINT 


3008  HTAB  7 

:  PRINT  "(4)  LIST  INPUTS  OR  PARAMETERS" 
:  PRINT 


301 0  HTAB  7 

:  PRINT  "(5)  CALCULATE  WITH  CURRENT  DATA" 
:  PRINT 


3012  HTAB  7 

:  PRINT  "(6)  RETURN  TO  MENU" 


3014  GOSUB  20200 


3016  IP  G  <  1  OR  G  >  6  GOTO  301 4 


3018  ON  G  GOTO  4000,5000,6000,8000,10000,1006 


4000  GOSUB  201 00 


4002  VTAB  4 
:  HTAB  13 

:  PRINT  "<NEW  DATA  INPUT >" 
:  HTAB  13 

:  PRINT  " - " 


4004  VTAB  9 

:  CALL  -  958 
:  HTAB  2 

:  PRINT  "INPUT  NEW  DATA  PILE  NAME  (MAX  15  CHRS)" 
:  PRINT 
:  HTAB  14 

:  PRINT  "PRESS  RETURN" 
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4006  VTAB  1 8 
:  HTAB  19 
:  PRINT  " 


4008  VTAB  1 7 
:  HTAB  6 

:  INPUT  "PILE  NAME  IS  ";NF$ 


401 0  VTAB  4 

:  CALL  -  958 
:  VTAB  9 
:  HTAB  10 

:  PRINT  "NEW  DATA  PILE  NAME  IS:" 


4012 

• 

• 

VTAB  13 

HTAB  (19  -  INT  ( 
PRINT  Q$;NF$;Q$ 

LEN 

4014 

GOSUB  20300 

4016 

IP  0$  =  "A"  GOTO 

4100 

4018 

IP  G$  =  "R"  GOTO 

4004 

4020 

IP  G$  =  "E"  GOTO 

3000 

4022 

GOTO  4014 

4100 

ONERR  GOTO  4104 

4102 

GOSUB  20100 

4104 

• 

• 

• 

VTAB  9 

CALL  -  958 

HTAB  3 

PRINT  "INPUT  NUMBER  (K)  OP  CLASSES  (MAX  9)" 

PRINT 

HTAB  14 

PRINT  "PRESS  RETURN" 


4106  VTAB  16 
:  HTAB  1 3 

:  INPUT  "INPUT  NUMBER  ";K 


4108  IP  K  <  1  OR  K  >  9  GOTO  4  04 


4110  VTAB  9 

:  CALL  -  958 
:  HTAB  4 
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V 


W 


PRINT  "NUMBER  (K)  OP  CLASSES  ENTERED  IS:" 


VTAB  12 

HTAB  19 
PRINT  "("K" 

)" 

41 12 

GOSUB  20300 

4114 

IF  G$  =  "A" 

GOTO 

4200 

41 16 

IF  G$  =  "R" 

GOTO 

4100 

41 18 

IP  G$  =  "E" 

GOTO 

3000 

4120 

GOTO  4112 

4200 

ONERR  GOTO 

4204 

4202 

GOSUB  20100 

4204 

VTAB  4 

:  CALL  -  958 
:  HTAB  3 

:  PRINT  "CLASS  SIZES  VECTOR  (N)  ->  (1  BY  "K")" 


4206  VTAB  7 
:  HTAB  2 

:  PRINT  "INPUT  ROW  (R1 )  AND  COLUMN  (Cl  TO  C"K")" 
:  VTAB  10 
:  HTAB  12 
:  PRINT  "R1  ,  " ; 

:  II  =  9 

:  FOR  I  =  1  TO  K 


4208 

• 

• 

HTAB  16 

PRINT  "C"I" :  "; 

INPUT  N( I ) 

4210 

IF  N(I)  <0  GOTO  4214 

4212  NEXT 

:  DO  =  .0000001 
:  FOR  I  =  1  TO  K 
:  M( I )  =  N( I ) 

:  DO  =  DO  +  N(I) 

:  NEXT 
:  GOTO  4216 


4214  VTAB  (II  +  I) 
:  HTAB  21 
:  FLASH 


7k 


PRINT  "INVALID  NUMBER" 
NORMAL 
II  =  II  +  1 
GOTO  4208 


4216  GOSUB  20100 


4218  VTAB  5 

:  CALL  -  958 
:  HTAB  3 

:  PRINT  "CLASS  SIZES  VECTOR  (N)  ENTERED  IS:" 


4220  VTAB  8 
:  HTAB  13 
:  PRINT  "R1 ,  "; 

:  FOR  1=1  TO  K 
:  HTAB  1 7 

:  PRINT  "C"I":  ";#M(I) 

:  NEXT 


4222 

COSUB  20300 

4224 

IF  G$  =  "A" 

GOTO 

O) 

o 

o 

4226 

IP  G$  a  "R" 

GOTO 

4200 

4228 

IF  G$  =  "E" 

GOTO 

3000 

4230 

GOTO  4222 

4300 

ONERR  GOTO 

4308 

4302 

GOSUB  20100 

• 

• 

I  =  1 

4304 

VTAB  4 

• 

• 

CALL  -  958 

• 

* 

HTAB  3 

PRINT  "INITIAL  FRACTIONAL  FLOW  MATRIX  (P)" 
HTAB  16 

PRINT  "("K"  BY  "K")" 

PRINT 


4306  HTAB  3 

:  PRINT  "INPUT  ROW  (R( I ) )  AND  COLUMN  (C(J))" 
:  HTAB  9 

:  PRINT  "FOR  THE  P(I,J)  ELEMENT" 

:  II  =  9 


4308  VTAB  1 0 
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HTAB  1 
CALL  -  958 
HTAB  13 

PRINT  "R"I",  " ; 
FOR  J  =  1  TO  K 


4310  HTAB  17 
:  PRINT 

:  INPUT  P(I,J) 


4312  IF  P(I,J)  <  0  OR  P(I,J)  >  1  GOTO  4318 


43U  NEXT  J 
:  ST  =  0 

:  FOR  IP  =  1  TO  K 
:  ST  =  ST  +  P(I,IP) 

:  NEXT 

:  IF  ST  >  1  GOTO  4320 


4316  GOTO  4324 


4318  VTAB  (II  +  J) 

:  HTAB  21 
:  FLASH 

:  PRINT  "INVALID  NUMBER" 
:  NORMAL 
:  II  =  II  +  1 
:  GOTO  4310 


4320  GOSUB  20500 

:  IF  G$  =  "E"  GOTO  3000 


4322  GOTO  4304 


4324  VTAB  4 

:  CALL  -  958 
:  VTAB  7 
:  HTAB  13 

:  PRINT  "ROW  "I"  INPUT  IS:" 


4326  VTAB  10 
:  HTAB  13 
:  PRINT  "R"I", 

:  FOR  L  =  1  TO  K 
:  HTAB  1 7 

:  PRINT  "C"L" :  "; 

:  PI  =  P(I,L) 

:  GOSUB  20000 

:  NEXT 


4328 

GOSUB  20300 

4330 

IF  G$  =  "A"  GOTO 

VjJ 

03 

4332 

IF  G$  =  "R"  GOTO 

4304 

4334 

IP  G$  =  "E"  GOTO 

3000 

4336 

GOTO  4328 

4338 

1  =  1  +  1 

• 

• 

IF  I  >  K  GOTO  4400 

4340 

GOTO  4304 

4400 

ONERR  GOTO  4404 

4402 

GOSUB  20100 

4404 

• 

• 

VTAB  5 

CALL  -  958 

HTAB  5 

PRINT  "RECRUITMENT  OPTIONS  INPUT  MENU" 


4406  VTAB  9 
:  HTAB  3 

:  PRINT  " ( 1  )  FIXED  RECRUITMENT  VECTOR" 

:  PRINT 
:  HTAB  3 

:  PRINT  "(2)  ADDITIVE  (RECRUIT  SIZE)" 

:  PRINT 
.  huab  5 

:  PRINT  "(3)  MULTIPLICATIVE  (RECRUIT  SIZE)" 
:  PRINT 


4408  HTAB  3 

:  PRINT  "(4)  ADDITIVE  (SYSTEM  SIZE)" 

:  PRINT 
:  HTAB  3 

:  PRINT  "(5)  MULTIPLICATIVE  (SYSTEM  SIZE)" 


4410 

• 

• 

GOSUB  20200 

OP  =  G 

4412 

IF  OP  <  1  OR  OP  >  5  GOTO  4410 

4414 

IF  OP  =  >  2  GOTO  4448 

4416 

ONERR  GOTO  4422 

77 


T 


1 


4418  A  =  1 

:  B$  =  "0" 
:  C  =  0 


4420 

4422 

I 

GOSUB  20100 

VTAB  5 

CALL  -  958 

HTAB  2 

PRINT  "RECRUITMENT  VECTOR  (R)  FOR  OPTION 
HTAB  4 

PRINT  "INPUT  ACTUAL  RECRUITMENT  NUMBERS" 
HTAB  12 

PRINT  "(I.E.,  52,  15,  3)" 

4424 

VTAB  10 

HTAB  2 

PRINT  "INPUT  ROW  (R1 )  AND  COLUMN  (Cl  TO 
VTAB  12 

HTAB  12 

PRINT  "R1 ,  "; 

II  =  11 

FOR  I  =  1  TO  K 

4426  HTAB  16 

:  PRINT  "Cl":  " ; 

!  :  INPUT  R ( I ) 

4428  IP  R(I)  <  0  GOTO  4432 

4430  NEXT 

;  :  GOTO  4434 

!  4432 

i 

1 

VTAB  (II  +  I) 

HTAB  21 

FLASH 

PRINT  "INVALID  NUMBER" 

NORMAL 

II  =  II  +  1 

GOTO  4426 

4434  v TAB  5 

:  CALL  -  958 
:  HTAB  3 

:  PRINT  "RECRUITMENT  VECTOR  (R)  ENTERED  IS 

4436 

VTAB  9 

HTAB  13 

PRINT  "R1 ,  "; 

FOR  I  =  1  TO  K 
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HTAB  17 

PRINT  "C"I":  " ; #R ( I ) 
NEXT 

4438 

GOSUB  20300 

4440 

IF  G$  =  "A"  GOTO  4600 

4442 

IF  G$  =  "R"  GOTO  4416 

4444 

IF  G$  =  "E"  GOTO  3000 

4446 

GOTO  4438 

4448 

IF  OP  =  2  OR  OP  =  4  THEN 

B$  =  "+" 

4450 

IF  OP  =  3  OR  OP  =  5  THEN 

B$  = 

4452 

IF  OP  =  4  OR  OP  =  5  THEN 

A  =  -  1 

4454 

ONERR  GOTO  4460 

4456 

IF  A  =  -  1  THEN  GOSUB  20900 

4458 

GOSUB  20100 

4460 

VTAB  5 

CALI  -  958 

PRINT  "RECRUITMENT  VECTOR  (R)  FOR  OPTIONS  (2-5)" 
VTAB  6 
HTAB  7 

PRINT  "INPUT  HISTORICAL  PROPORTIONS" 

HTAB  10 

PRINT  "(I.E. ,  .74,  .21 ,  .05)" 


4462  VTAB  10 
:  HTAB  2 

:  PRINT  "INPUT  ROW  (R1 )  AND  COLUMN  (Cl  TO  C"K")" 
:  VTAB  12 
:  HTAB  12 
:  PRINT  "R1 , 

:  II  =  11 
:  FOR  I  =  1  TO  K 


4464  HTAB  1  6 

:  PRINT  "Cl":  "; 

INPUT  R( I) 


4466  IF  R(I)  <  0  OR  R(I)  >  1  GOTO  4472 
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4468  NEXT 
:  RR  =  0 

:  FOR  I  =  1  TO  K 
:  RR  =  RR  +  R(I) 

:  NEXT 

:  IF  RR  <  1  OR  RR  >  1  GOTO  4474 


4470  GOTO  4476 


4472  VTAB  (II  +  I) 

:  HTAB  21 
:  FLASH 

:  PRINT  "INVALID  NUMBER" 
:  NORMAL 
:  II  =  II  +  1 
:  GOTO  4464 


4474  GOSUB  201 00 
:  VTAB  11 
:  HTAB  3 
.  flash 

:  PRINT  "RECRUITMENT  VECTOR  MUST  EQUAL  ONE" 

:  NORMAL 
:  PRINT 
:  HTAB  5 

:  PRINT  "PRESS  RETURN  TO  REENTER  VECTOR" 

:  VTAB  24 
:  HTAB  13 

:  PRINT  "PRESS  RETURN  "; 

:  GET  G$ 

:  GOTO  4454 

4476  VTAB  5 

:  CALL  -  958 
.  [j^A3  3 

:  PRINT  "RECRUITMENT  VECTOR  (R)  ENTERED  IS:" 


4478  VTAB  9 
:  HTAB  13 
:  PRINT  "R1 ,  "; 

:  FOR  I  =  1  TO  K 
:  HTAB  1 7 

:  PRINT  " C " I "  :  "; 

:  PI  =  R(  I ) 

GOSUB  20000 
:  NEXT 


4480  GOSUB  20300 


4482  IF  G$  =  "A"  GOTO  4490 
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4484  IP  G$  =  "R"  GOTO  4454 


4486  IP  G$  =  "E"  GOTO  3000 


4488  GOTO  4480 


4490  IP  OP  =  4  OR  OP  =  5  THEN  451 4 


4492  ONERR  GOTO  4496 


4494  GOSUB  20100 


4496  VTAB  5 

:  CALL  -  958 
:  HTAB  3 

:  PRINT  "NUMBER  (A)  RECRUITS  ENTERING  SYSTEM" 


4498  VTAB  7 

:  CALL  -  958 
:  HTAB  13 

:  INPUT  "INPUT  (A)  ";A 


4500  IP  A  <  0  GOTO  4498 


4502  VTAB  5 

:  CALL  -  958 

:  PRINT  "TOTAL  NUMBER  (A)  ENTERING  SYSTEM" 
:  PRINT 
:  HTAB  19 
:  PRINT  "IS" 

:  VTAB  12 
:  A$  =  STR$  (A) 

:  HTAB  (20  -  INT  ((  LEN  (A$)  +  2)  /  2)) 


; 

PRINT 

"("A" 

)" 

4504 

GOSUB 

o 

o 

o 

<M 

4506 

IP  G$ 

=  "A" 

GOTO 

4514 

4508 

n 
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=  "R" 

GOTO 

4494 

4510 

IP  G$ 

—  ft  T?  »l 

— *  xJ 

o 

E-i 

O 

ci> 

o 

o 

o 

4512 

GOTO  ■ 

4504 

451 4 

IP  OP 

=  3  OR  OP 

=  5  GI 

4516 

ONERR 

GOTO 

4520 

81 


4518  GOSUB  20100 


4520  VTAB  5 
:  STAB  1 
:  CALL  -  958 
:  HTAB  7 

:  PRINT  "NUMBER  TO  ADDITIVELY  CHANGE" 
:  PRINT 
:  HTAB  9 

:  PRINT  "RECRUITS  OR  SYSTEM  SIZE" 


4522  VTAB  1  1 
:  HTAB  13 

:  INPUT  "INPUT  (C):  ";C 


4524  VTAB  5 

:  CALL  -  958 
:  HTAB  6 

:  PRINT  "TOTAL  NUMBER  (C)  TO  INCREASE" 
:  PRINT 
:  HTAB  10 

:  PRINT  "RECRUITS  OR  SYSTEM  IS" 

:  VTAB  12 
:  C$  =  STR$  (C) 


• 

• 

• 

HTAB  (20  -  INT  (( 
PRINT  "("C")" 

LEN 

4526 

GOSUB  20300 

4528 

IF  G$  =  "A"  GOTO 

4600 

4530 

IF  G$  =  "R"  GOTO 

4520 

4532 

IF  G$  =  "E"  GOTO 

3000 

4534 

GOTO  4526 

4536 

ONERR  GOTO  4540 

4538 

GOSUB  20100 

4540 

VTAB  5 

CALL  -  958 
HTAB  4 

PRINT  "MULTIPLICATIVE  FACTOR  TO  INCREASE" 

PRINT 

HTAB  9 

PRINT  "RECRUITS  OR  SYSTEM  SIZE" 


82 


4542  VTAB  1 1 
:  HTAB  13 

:  INPUT  "INPUT  (C):  ";C 


4544  VTAB  5 

:  CALI  -  958 
:  HTAB  2 

:  PRINT  "MULTIPLICATIVE  FACTOR  (C)  TO  INCREASE" 
:  PRINT 
:  HTAB  10 

:  PRINT  "RECRUITS  OR  SYSTEM  IS" 

:  VTAB  12 

•  —  ct'T'O'C  ( p ) 

:  HTAB  (20  -  INT  ((  LEN  (C$)  +2)  /  2)) 

:  PRINT  "("C")" 


4546 

GOSUB  20300 

4548 

IF  G$  =  "A" 

GOTO 

4600 

4550 

IF  G$  =  "R" 

GOTO 

4540 

4552 

IF  G$  =  "E" 

GOTO 

3000 

4554 

GOTO  4546 

4600 

ONERR  GOTO  . 

4604 

4602 

GOSUB  20100 

4604 

VTAB  4 

C  ,LL  -  958 
VTAB  6 
HTAB  4 

PRINT  "INPUT  NUMBER  (T)  OF  TIME  PERIODS" 

PRINT 

HTAB  14 

PRINT  "PRESS  RETURN" 


4606  VTAB  1 5 
:  HTAB  13 

:  INPUT  "INPUT  NUMBER  ";T 


4608  IF  T  <  1  GOTO  4604 


4610  VTAB  5 

:  CALL  -  958 
:  VTAB  9 
:  HTAB  2 

:  PRINT  "NUMBER  (T)  OF  TIME  PERIODS  ENTERED  IS:" 
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PRINT 

PRINT 


:  HTAB  19 
:  PRINT  " ( "T" 

)" 

4612 

GOSUB  20300 

4614 

IF  G$  =  "A" 

GOTO 

4700 

4616 

IF  G$  =  "R" 

GOTO 

4600 

4618 

IP  G$  =  "E" 

GOTO 

3000 

4620 

GOTO  4612 

4700 

ONERR  GOTO 

4704 

4702 

GOSUB  20100 

4704 

VTAB  4 

CALL  -  958 
VTAB  6 

HTAB  8 

PRINT  "SELECT  PERCENTAGES  OPTION" 

PRINT 

HTAB  14 

PRINT  "FOR  PRINTOUT" 


4706  VTAB  1 2 
:  HTAB  2 

:  PRINT  "(1)  NO  CLASS  PERCENTAGES  ($*)" 

:  PRINT 
:  HTAB  2 

:  PRINT  "(2)  GRADE  SIZE  AS  %  OF  TOTAL  SIZE" 

:  PRINT 
:  HTAB  2 

:  PRINT  "(3)  GRADE  SIZE  AS  %  OF  ORIGINAL  SIZE" 


4708  GOSUB  20200 
*  Z$  —  G$ 


4710  IF  Z$  =  "1"  OR  Z$  =  "2"  OR  Z$  =  "3"  GOTO  47H 


4712  GOTO  4708 


471 4  HOME 
:  VTAB  11 
:  HTAB  8 

:  PRINT  "INITIAL  INPUTS  COMPLETED" 
:  FOR  I  =  1  TO  1500 
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:  NEXT 
:  GOTO  9000 


5000  GOSUB  20100 


5002  VTAB  4 
:  HTAB  12 

:  PRINT  "<RECALL  OLD  DATA>" 
:  HTAB  12 

:  PRINT  " - " 


5004  VTAB  9 

:  CALL  -  958 
:  HTAB  3 

:  PRINT  "ENTER  DATA  PILE  NAME  TO  BE  RECALLED" 
:  PRINT 
:  HTAB  13 

:  PRINT  "(PRESS  RETURN)" 


5006  VTAB  1 8 
:  HTAB  19 
:  PRINT  " 


5008  VTAB  1 7 
:  HTAB  6 

:  INPUT  "PILE  NAME  IS  ";NF$ 


5010  VTAB  4 

:  CALL  -  958 
:  VTAB  9 
:  HTAB  7 

:  PRINT  "RECALLED  DATA  PILE  NAME  IS" 


5012 

VTAB  13 

HTAB  (19  -  INT  ( 
PRINT  Q$;NF$;Q$ 

LEN  (NFS) 

5014 

GOSUB  20300 

5016 

IP  G$  =  "A"  GOTO 

5024 

5018 

IP  GC  =  "R"  GOTO 

5000 

5020 

IP  G$  =  "E"  GOTO 

3000 

5022 

GOTO  5014 

5024 

GOSUB  20100 

5026 

VTAB  8 

HTAB  9 

PRINT  " INPUT  DISK  DRIVE  NUMBER" 

PRINT 

PRINT 

HTAB  12 

PRINT  "(1)  DISK  DRIVE  1" 

PRINT 
HTAB  12 

PRINT  "(2)  DISK  DRIVE  2" 

PRINT 
HTAB  12 

PRINT  "(3)  ESCAPE  TO  MENU" 


5028  GOSUB  20200 


5030  IP  0  <  1  OR  0  >  3  GOTO  5028 


5032  DN  =  G 


5034  IP  0  =  3  THEN  3000 


5100  HOME 

:  VTAB  1 1 
:  HTAB  7 

:  PRINT  " <DATA  PILE  IS  BEING  LOADED >" 


5102  ONERR  GOTO  5200 


5104  PRINT 

:  PRINT  D$ ; "OPEN"NF$"  ,D";DN 


5106  PRINT  D$ ; "READ" ;NP$ 


5108  INPUT  K 

:  FOR  I  =  1  TO  9 
:  INPUT  NN( I ) 

:  NEXT 

:  FOR  I  =  1  TO  9 
FOR  J  =  1  TO  9 
:  INPUT  PP(I,J) 

:  NEXT 

:  NEXT 

:  FOR  1=1  TO  9 
:  INPUT  RR( I ) 

:  NEXT 
:  INPUT  A 
:  INPUT  B$ 

:  INPUT  C 
:  INPUT  T 
:  INPUT  Z$ 
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INPUT  OP 
INPUT  DO 
PRINT  D$ 


5110  FOR  I  =  1  TO  K 
:  N  ( I )  =  NN  ( I ) 

:  M(  I )  =  N(  I ) 

:  NEXT 

:  FOR  I  =  1  TO  K 
:  FOR  J  =  1  TO  K 

:  P(I,J)  =  PP(I,J) 

:  NEXT 

:  NEXT 

:  FOR  I  =  1  TO  K 
:  R( I )  =  RR( I ) 

:  NEXT 


5112  PRINT  D$; "CLOSE” 


51H  COSUB  20900 
:  GOTO  3000 


5200  HOME 
:  VTAB  1 
:  HTAB  2 
:  FLASH 

:  PRINT  "ERROR  IN  FILE  NAME  OR  DISK  SELECTION" 
:  NORMAL 
s  PRINT 
:  HTAB  15 

:  PRINT  "<REVERIFY>" 

:  GOTO  5010 


6000  GOSUB  20100 


6002  VTAB  5 
:  HTAB  9 

:  PRINT  "<CHANGE  OR  MODIFY  DATA>” 
:  HTAB  9 

:  PRINT  " - " 

:  PRINT 


6004  VTAB  9 
:  HTAB  3 

:  PRINT  ” ( 1 )  FILE  NAME" ; 

:  HTAB  23 

:  PRINT  "(7)  PERCENT  {%)" 

:  HTAB  3 

:  PRINT  "(2)  INITIAL  STKS"; 
:  HTAB  23 
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PRINT  "(8)  EXT  RANGE  +T" 
HTAB  3 

PRINT  "(3)  MATRIX  ( P )  '* ; 
HTAB  23 

PRINT  "(9)  (P)  ELEMENT" 


6006  HTAB  3 

:  PRINT  "(4)  RECRUITMENT"; 

•  HTAB  23 

:  PRINT  "(10)  (P)  ROW" 

:  HTAB  3 

:  PRINT  "(5)  OPTIONS"; 

:  HTAB  23 

:  PRINT  "(11)  RESET  STKS" 

:  HTAB  3 

:  PRINT  "(6)  TIME  (T)"; 

•  HTAB  23 

:  PRINT  "(12)  RETURN  MENU" 

:  PRINT 


6008  VTAB  1 8 
:  HTAB  5 

:  PRINT  "*  GOTO  THEORY  FOR  EXPLANATIONS  *" 


6010  V TAB  23 
:  HTAB  1 

:  FOR  I  =  1  TO  39 
:  PRINT  "  •  " ; 

:  NEXT 
;  VTAB  24 
:  HTAB  11 

:  PRINT  "INPUT  SELECTION  "; 
:  INPUT  G$ 

:  G  =  VAL  (G$) 


6012  IE  G  <  1  OR  G  >  12  GOTO  6000 


6014  ON  G  GOTO  61  00 , 6200, 6300, 6436 , 6400, 6600, 6700, 6800, 69 
00,7000,7100,7200 


6016  GOTO  6000 


6100  GOSUB  20100 


6102  VTAB  5 

:  CALL  -  958 
:  VTAB  09 
:  HTAB  12 

:  PRINT  "DATA  PILE  NAME  IS:" 
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6104  VTAB  13 

:  HTAB  (19  -  INT  (  LEN  (NFS)  /  2)) 
:  PRINT  Q$;NF$;Q$ 


6106 

GOSUB  20400 

6108 

IF  G$  =  "A" 

GOTO 

6000 

61 10 

IF  G$  =  "R" 

GOTO 

61 14 

6112 

GOTO  6106 

6114 

VTAB  5 

CALL  -  958 
HTAB  2 

PRINT  "INPUT  NEW  DATA  FILE  NAME  (MAX  15  CHRS)" 

PRINT 

HTAB  14 

PRINT  "PRESS  RETURN" 


6116  VTAB  16 
:  HTAB  19 
:  PRINT  " 


6118  VTAB  15 
:  HTAB  6 

:  INPUT  "FILE  NAME  IS  ";NF$ 


6120  GOTO  6100 


6200  GOSUB  201 00 


6202  VTAB  5 

:  CALL  -  958 
:  HTAB  3 

:  PRINT  "CLASS  SIZES  VECTOR  (N)  ENTERED  IS:" 


6204  VTAB  9 
:  HTAB  13 
:  PRINT  ”R1 , 

:  FOR  I  =  1  TO  K 
:  HTAB  1 7 

:  PRINT  "Cl":  ";#M(I) 

:  NEXT 


6206  GOSUB  20400 


6208  IF  G$  =  "A"  GOTO  6000 
6210  IF  G$  =  "R"  GOTO  6214 
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6212  GOTO  6206 


6214  ONERR  GOTO  6 216 


6216  VTAB  5 

:  CALL  -  958 
:  HTAB  3 

:  PRINT  "CLASS  SIZES  VECTOR  (N)  ->  (1  BY  "K")" 


6218  VTAB  9 
:  HTAB  3 

:  PRINT  "INPUT  ROW  (R1 )  AND  COLUMN  (1  TO  "K")" 
:  PRINT 
:  HTAB  12 
:  PRINT  "R1  , 

:  FOR  I  =  1  TO  K 
HTAB  1 6 

:  PRINT  " C " I "  : 

:  INPUT  N( I) 

:  NEXT 

:  FOR  I  =  1  TO  K 
:  M  ( I )  =  N  ( I ) 

:  NEXT 


6220 

GOTO  6200 

6300 

• 

• 

GOSUB  20100 

I  =  1 

6302  VTAB  4 

:  CALL  -  958 
:  VTAB  5 
:  HTAB  13 

:  PRINT  "ROW  "I"  INPUT  IS:" 


6304  VTAB  8 
:  HTAB  13 
:  PRINT  "R"I", 

:  FOR  L  =  1  TO  K 
:  HTAB  1 7 

:  PRINT  "C"L" : 

:  PI  =  ?(I,L) 

:  GOSUB  20000 

:  NEXT 


6306  GOSUB  20300 


6308  IF  G$  =  "A"  GOTO  6316 
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6310 

IP  Gr$  =  "E" 

GOTO 

6000 

6312 

IF  G$  =  "R" 

GOTO 

6320 

6314 

GOTO  6306 

6316 

• 

• 

1  =  1  +  1 

IF  I  >  K  GOTO  6000 

6318 

GOTO  6302 

6320 

ONERR  GOTO 

6326 

6322 

VTAB  4 

CALL  -  958 
HTAB  3 

PRINT  "INITIAL  FRACTIONAL  FLOW  MATRIX  (P) 
HTAB  16 

PRINT  "("K"  BY  "K")" 

PRINT 


6324  HTAB  3 

:  PRINT  "INPUT  ROW  (R(I))  AND  COLUMN  (C(J)) 
:  HTAB  9 

:  PRINT  "FOR  THE  P(I,J)  ELEMENT" 

:  II  =  9 


6326  VTAB  10 
:  HTAB  1 
:  CALL  -  958 
:  HTAB  13 
:  PRINT  ”R"I",  "; 
:  FOR  J  =  1  TO  K 


6328 

HTAB  17 

: 

PRINT  "C"J": 

INPUT  P(I,J) 

6330 

IF  P(I,J)  <  0  OR  P(I,J)  >  1  GOTO  6336 

6332 

NEXT 

ST  =  0 

FOR  IP  =  1  TO  K 

ST  =  ST  +  P(I,IP) 

NEXT 

IF  ST  >  1  GOTO  6338 


b334  GOTO  6302 
6336  VTAB  ~II  +  J) 
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HTAB  21 
PLASH 

PRINT  "INVALID  NUMBER" 
NORMAL 
II  =  II  +  1 
GOTO  6328 


6338  GOSUB  20500 

:  IP  0$  =  "E"  GOTO  6000 


6340  GOTO  6300 


6400  GOSUB  201 00 


6402  VTAB  8 

:  CALL  -  958 
:  HTAB  11 

:  PRINT  "OPTION  SELECTED  IS:" 
:  VTAB  13 


6404  IP  OP  =  1  THEN  PRINT  TAB(  8) "FIXED  RECRUITMENT  VECTO 
R" 


6406  IP  OP  =  2  THEN  PRINT  TAB(  9) "ADDITIVE  (RECRUIT  SIZE) 


6408  IP  OP  a  3  THEN  PRINT  TAB(  6) "MULTIPLICATIVE  (RECRUIT 
SIZE)" 


6410  IF  OP  =  4  THEN  PRINT  TAB(  9)"ADDITIVE  (SYSTEM  SIZE)" 


6412  IP  OP  =  5  THEN  PRINT  TAB(  6 ) "MULTIPLICATIVE  (SYSTEN 
SIZE)" 


6414  VTAB  22 
»  HTAB  2 

:  PRINT  "(PRESS  (M)  MENU,  (R)  CHANGE  OPTION)" 
:  PRINT 
:  HTAB  6 

:  PRINT  "((C)  TO  CHANGE  PARAMETERS)  "; 

:  GET  G$ 


6416  IP  G$  =  "M"  GOTO  60C0 


6418  IP  G$  =  "R"  GOTO  6424 


6420  IP  G$  =  "C"  GOTO  6436 


6422  GOTO  6414 


6424  ONERR  GOTO  6428 
6426  GOSUB  20100 


6428  VTAB  5 

:  CALL  -  958 
:  STAB  5 

:  PRINT  "RECRUITMENT  OPTIONS  INPUT  MENU" 


6430  VTAB  9 
:  HTAB  3 

:  PRINT  "(1)  FIXED  RECRUITMENT  VECTOR" 

:  PRINT 
:  HTAB  3 

:  PRINT  "(2)  ADDITIVE  (RECRUIT  SIZE)" 

:  PRINT 
:  HTAB  3 

:  PRINT  "(3)  MULTIPLICATIVE  (RECRUIT  SIZE)" 
:  PRINT 


6432  HTAB  3 

:  PRINT  "(4)  ADDITIVE  (SYSTEM  SIZE)" 

:  PRINT 
:  HTAB  3 

:  PRINT  "(5)  MULTIPLICATIVE  (SYSTEM  SIZE)" 


6434 

• 

• 

GOSUB  20200 

OP  =  G 

6436 

I?  OP  <  1  OR  OP  >  5  GOTO 

6424 

6438 

IF  OP  =  >  2  GOTO  6470 

6440 

ONERR  GOTO  6458 

6442 

A  =  1 

B$  =  "0" 

C  =  0 

6444 

GOSUB  20100 

6446 

VTAB  5 

CALL  -  958 

HTAB  3 

PRINT  "RECRUITMENT  VECTOR 

(R)  ENTERED 

6448 

VTAB  9 

HTAB  13 

PRINT  "R1 ,  " ; 

FOR  I  =  1  TO  K 
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HTAB  17 

PRINT  "Cl":  "  ;  #R  ( I ) 
NEXT 


6450 

GOSUB  20400 

6452 

IF  G$  =  "A" 

GOTO 

6000 

6454 

IF  G$  =  "R" 

GOTO 

6458 

645  6 

GOTO  6450 

5458 

VTAB  5 

CALL  -  958 
HTAB  2 

PRINT  "RECRUITMENT  VECTOR  (R)  FOR  OPTION  (l)" 
HTAB  4 

PRINT  "INPUT  ACTUAL  RECRUITMENT  NUMBERS" 

HTAB  12 

PRINT  "(I.E.,  52,  15,  3)" 


6460  VTAB  10 
:  HTAB  2 

:  PRINT  "INPUT  ROW  (R1  )  AND  COLUMN  (Cl  TO  C"K")" 
:  VTA 3  12 
:  HTAB  12 
:  PRINT  "R1 ,  " ; 

:  II  =  11 
:  FOR  I  =  1  TO  K 


6462 

HTAB  16 

• 

PRINT  " C " I " :  "; 

• 

• 

INPUT  R( I ) 

6464 

IF  R(I)  <  0  GOTO  6468 

6466 

NEXT 

GOTO  6444 

6468  VTAB  (II  +  I) 

:  HTAB  21 
:  FLASH 

:  PRINT  "INVALID  NUMBER" 
:  NORMAL 
:  II  =  II  +  1 
:  GOTO  6462 


6470 

IF 

OP  =  2 

OR 

OP  =  4 

THEN 

B$  =  "+" 

6472 

IF 

OP  =  3 

OR 

OP  =  5 

THEN 

B$  = 

94 


6474  IP  OP  =  4  OR  OP  =  5  THEN  A  =  -  1 


6476  ONERR  GOTO  6496 


6478  IF  A  =  -  1  THEN  GOSUB  20900 


6480  GO SUB  201 00 


6482  VTAB  5 

:  CALL  -  958 
:  HTAB  3 

:  PRINT  "RECRUITMENT  VECTOR  (R)  ENTERED  IS:" 


6484  VTAB  9 
:  HTAB  13 
:  PRINT  "R1 , 

:  FOR  I  =  1  TO  K 
:  HTAB  1 7 

:  PRINT  "Cl": 

:  PI  =  R(  I ) 

:  GOSUB  20000 


: 

NEXT 

6486 

GOSUB  20300 

6488 

IP  G$  =  "A" 

GOTO 

651  2 

6490 

I?  G$  =  "R" 

GOTO 

6496 

6492 

IP  G$  =  "E" 

GOTO 

6000 

6494 

GOTO  6486 

6496 

VTAB  5 

HTAB  1 
CALL  -  958 

PRINT  "RECRUITMENT  VECTOR  (R)  POR  OPTIONS  (2-5)" 
VTAB  6 
HTAB  7 

PRINT  "INPUT  HISTORICAL  PROPORTIONS" 

HTAB  10 

PRINT  "(I.E. ,  .74,  .21 ,  .05)" 


6498  VTAB  10 
:  HTAB  2 

:  PRINT  "INPUT  ROW  (R1 )  AND  COLUMN  (Cl  TO  C"K"'" 
:  VTAB  12 
:  HTAB  12 
:  PRINT  "HI,  "; 
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s  II  *  11 
:  FOR  I  »  1  TO  K 


6500  HTAB  1  6 

:  PRINT  MC"I": 

:  INPUT  R(I) 


6502  IF  R(I)  <  0  OR  R(I)  >  1  GOTO  6508 


6504  NEXT 
:  RR  =  0 

:  FOR  I  =  1  TO  K 
:  RR  =  RR  +  R(  I ) 

•  ujjt 

:  IF  RR  <  1  OR  RR  >  1  GOTO  6510 


6506  GOTO  6482 


6508  VTAB  (II  +  I) 

:  HTAB  21 
:  FLASH 

:  PRINT  "INVALID  NUMBER" 
:  NORMAL 
:  II  *  II  +  1 
:  GOTO  6500 


6510  GOSUB  20100 
:  VTAB  11 
:  HTAB  3 
:  FLASH 

:  PRINT  "RECRUITMENT  VECTOR  MUST  EQUAL  ONE" 
:  NORMAL 
:  PRINT 
:  HTAB  5 

:  PRINT  "PRESS  RETURN  TO  REENTER  VECTOR" 

:  VTAB  24 
:  HTAB  13 

:  PRINT  "PRESS  RETURN  " j 
:  GET  G$ 

:  GOTO  6496 


6512  IF  OP  =  4  OR  OP  =  5  GOTO  6558 


6514  GOSUB  20100 


6516  VTAB  5 

:  CALL  -  958 
:  HTAB  4 

:  PRINT  "TOTAL  NUMBER  (A)  ENTERING  SYSTEM" 
:  PRINT 
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HTAB  19 
PRINT  "IS" 

VTAB  12 

A$  =  STR$  (A) 

HTAB  (20  -  INT  ((  LBN  (AS)  +2)  /  2)) 
PRINT  "("A")" 


6518  GOSUB  20300 


6520  IP  G$  =  "A"  GOTO  6538 


6522  IP  G$  =  "R"  GOTO  6530 


6524  IP  G$  =  "E"  GOTO  6000 


6526  GOTO  6518 


6528  ONERR  GOTO  6530 


6530  VTAB  5 

:  CALL  -  958 
:  HTAB  3 

:  PRINT  "NUMBER  (A)  RECRUITS  ENTERING  SYSTEM" 


6532 

VTAB  7 

CALL  -  958 
HTAB  13 

INPUT  "INPUT 

(A)  " ;A 

6534 

IP  A  <  0  GOTO 

6532 

6536 

GOTO  6514 

6538 

IP  OP  =  3  OR 

OP  =  5  THEN  6560 

6540 

ONERR  GOTO  6554 

6542 

GOSUB  20100 

6544  VTAB  5 

:  CALL  -  958 
:  HTAB  6 

:  PRINT  "TOTAL  NUMBER  (C)  TO  INCREASE" 

:  PRINT 
:  HTAB  10 

:  PRINT  "RECRUITS  OR  SYSTEM  IS" 

:  VTAB  12 
•  H*  —  amp*  (r) 

:  HTAB  (20  -  INT  ((  LEN  (C$)  +2)  /  2)) 
:  PRINT  "("C")" 


6546  GOSUB  20400 

6548  17  G$  =  MAM  GOTO  6000 


6550  IP  G$  =  "R"  GOTO  6554 


6552  GOTO  6546 


6554  VTAB  5 
:  HTAB  1 
:  CALL  -  958 
:  HTAB  7 

:  PRINT  "NUMBER  TO  ADDITIVELY  CHANGE" 
:  PRINT 
:  HTAB  9 

:  PRINT  "RECRUITS  OR  SYSTEM  SIZE" 

:  PRINT 
:  HTAB  15 

:  PRINT  " ( I .E. ,  123)" 


6556  VTAB  14 
:  HTAB  13 

:  INPUT  "INPUT  (C):  ";C 


6558  GOTO  6542 


6560  ONERR  GOTO  6574 


6562  GOSUB  20100 


6564  VTAB  5 

:  CALL  -  958 
:  HTAB  4 

:  PRINT  "MULTIPLICATIVE  FACTOR  TO  INCREASE" 
:  PRINT 
:  HTAB  10 

:  PRINT  "RECRUITS  OR  SYSTEM  IS" 

:  VTAB  12 
:  C$  a  STR$  (C) 

:  HTAB  (20  -  INT  ((  LEN  (C$)  +2)  /  2)) 

:  PRINT  "("C")" 


6566  GOSUB  20400 


6568  I?  G$  a  "A"  GOTO  6000 
6570  IP  G$  »  "R"  GOTO  6574 


6572  GOTO  65 66 
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6574  VTAB  5 

:  CALL  -  958 
:  HTAB  2 

:  PRINT  "MULTIPLICATIVE  FACTOR  (C)  TO  INCREASE" 
:  PRINT 
:  HTAB  9 

:  PRINT  "RECRUITS  OR  SYSTEM  SIZE" 

:  PRINT 
:  HTAB  15 

:  PRINT  "(I.E. ,  1.2)" 


6576  VTAB  1 4 
:  HTAB  13 

:  INPUT  "INPUT  (C):  ";C 


6578  GOTO  6562 


6600  GOSUB  201 00 


6602  VTAB  4 

:  CALL  -  958 
:  VTAB  9 
:  HTAB  2 

:  PRINT  "NUMBER  (T)  OF  TIME  PERIODS  ENTERED  IS 
:  PRINT 
:  PRINT 
:  HTAB  19 
:  PRINT  " ( "T” ) " 


6604  GOSUB  20400 


6606  IF  G$  =  "A"  GOTO  6000 


6608  IF  G$  =  "R"  GOTO  6612 


6610  GOTO  6604 


6612  ONERR  GOTO  6614 


6614  VTAB  4 

:  CALL  -  958 
:  VTAB  5 
:  HTAB  4 

:  PRINT  "INPUT  NUMBER  (T)  OF  TIME  PERIODS" 
:  PRINT 
:  HTAB  14 

:  PRINT  "PRESS  RETURN" 


6616  VTAB  16 
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:  HTAB  12 

:  INPUT  " INPUT  NUMBER  ";T 


6618  IP  T  <  1  GOTO  6614 


6620  GOTO  6600 


6700  ONERR  GOTO  6704 


6702  GOSUB  201 00 


6704  VTAB  4 

:  CALL  -  958 
:  VTAB  6 
:  HTAB  8 

:  PRINT  "SELECT  PERCENTAGES  OPTION" 
:  PRINT 
:  HTAB  14 

:  PRINT  "FOR  PRINTOUT" 


6706  VTAB  1 2 
:  HTAB  2 

:  PRINT  "(1)  NO  CLASS  PERCENTAGES  (*)" 

:  PRINT 
:  HTAB  2 

:  PRINT  "(2)  GRADE  SIZE  AS  %  OP  TOTAL  SIZE" 

:  PRINT 
:  HTAB  2 

:  PRINT  "(3)  GRADE  SIZE  AS  %  OP  ORIGINAL  SIZE" 


6708  GOSUB  20200 
:  Z$  *  G$ 


6710  IP  Z$  =  "1"  OR  Z$  =  "2"  OR  Z$  =  "3"  GOTO  6000 


671 2  GOTO  6708 


6800  ONERR  GOTO  6804 
6802  GOSUB  201 00 


6804  VTAB  5 

:  CALL  -  958 
:  HTAB  2 

:  PRINT  "NUMBER  (T)  OP  TIME  PERIODS  ENTERED  IS:" 
:  PRINT 
:  HTAB  19 
:  PRINT  »("!")» 

6806  VTAB  1 2 
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:  CALL  -  958 
:  HTAB  10 

:  PRINT  "EXTEND  RANGE  ("TA")  TO 


6808  VTAB  22 
:  HTAB  4 

:  PRINT  "(CANNOT  BE  LESS  THAN  "T"  PERIODS)* 

681 0  VTAB  1 4 
:  HTAB  14 

:  PRINT  "INPUT  +T:  "; 

:  INPUT  TA 

:  IP  TA  <  T  GOTO  6806 


681 2  VTAB  4 

:  CALL  -  958 
:  VTAB  11 
:  HTAB  5 

:  PRINT  "TIME  (+T)  PERIODS  EXTENDED  TO:" 
:  PRINT 
:  PRINT 
:  HTAB  18 
:  PRINT  "("TA")" 


6814 

GOSUB  20400 

6816 

IP  G$  =  "A" 

GOTO 

6000 

6818 

IP  G$  =  "R" 

GOTO 

6800 

6820 

GOTO  6814 

6900 

IP  K  s  <  0 

SOTO 

6000 

6902 

GOSUB  20100 

6904 

VTAB  4 

CALL  -  958 

PRINT 

HTAB  6 

PRINT  "CHANGE  INDIVIDUAL  ELEMENT  OP" 

PRINT 

HTAB  8 

PRINT  "THE  TRANSITION  MATRIX  (P)" 

PRINT 

HTAB  17 

PRINT  "P(I,J)" 


6906  ONERR  GOTO  6908 
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6908  VTAB  1 4 
:  CALL  -  958 
:  HTAB  11 

:  PRINT  " INPUT  ROW  NUMBER: 

:  INPUT  I 

:  IP  I  <  1  OR  I  >  K  GOTO  6908 


6910  ONERR  GOTO  6912 


691 2  VTAB  1 7 
:  CALL  -  958 
:  HTAB  11 

:  PRINT  "INPUT  COL  NUMBER: 

:  INPUT  J 

:  IP  J  <  1  OR  J  >  K  GOTO  6912 


6914  GOSUB  20100 


691 6  VTAB  6 

:  CALL  -  958 

:  PRINT  "THE  PRESENT  TRANSITION  MATRIX  ELEMENT  IS" 
:  VTAB  11 
:  PI  «  P(I,J) 

:  HTAB  17 
:  GOSUB  20000 


691 8  GOSUB  20400 


6920  IP  G$  =  "A"  GOTO  6000 


6922  IP  G$  a  "R"  GOTO  6926 


6924  GOTO  6918 


6926  ONERR  GOTO  6930 


6928  GOSUB  201 00 


6930  VTAB  6 

:  CALL  -  958 
:  HTAB  2 

:  PRINT  "INPUT  NEW  ROW  "I",  COL  "J"  MATRIX  ELEMENT" 
:  II  *  11 


6932  VTAB  (II) 

:  HTAB  7 

:  PRINT  "INPUT  P("I","J")  ELEMENT:"; 
:  INPUT  P(I,J) 


6934  IP  P(I,J)  -  >  0  AND  P(I,J)  <  =  1  GOTO  6942 


6936  GOSUB  20500 

:  IP  G$  =  "E"  GOTO  6000 


6938  GOTO  691 4 


6940  VTAB  II 
:  HTAB  29 
:  PLASH 

:  PRINT  " INVALID  NO." 
:  NORMAL 
:  II  =  II  +  1 
:  GOTO  6932 


6942  ST  =  0 

:  FOR  IP  *  1  TO  K 
:  ST  »  ST  +  P(I,IP) 

:  NEXT 

:  IP  ST  >  1  GOTO  6936 

6944  GOSUB  201 00 

6946  VTAB  7 
:  HTAB  7 

:  PRINT  "THE  NEW  ROW  "I”,  COL  "J"  ELEMENT" 
:  PRINT 
:  HTAB  17 

:  PRINT  "P("I","J")  IS" 

:  VTAB  13 
:  PI  =  P(I,J) 

:  HTAB  17 
:  GOSUB  20000 


6948 

GOSUB  20400 

6950 

IP  G$  =  "A"  GOTO 

6000 

6952 

IP  G$  =  "R"  GOTO 

6926 

6954 

GOTO  6948 

7000 

IP  K  =  <  0  GOTO 

6000 

7002 

GOSUB  20100 

7004 

VTAB  4 

CALL  -  958 

PRINT 

HTAB  5 

PRINT  "CHANGE  WHOLE  ROW  OP  ELEMENTS  OP" 


PRINT 
HTAB  8 

PRINT  "THE  TRANSITION  MATRIX  (P)" 


7006  ONERR  GOTO  7008 


7008  VTAB  1 7 
:  GALL  -  958 
:  HTAB  11 

:  PRINT  "INPUT  ROW  NUMBER:  "; 
:  INPUT  I 

:  IP  I  <  1  OR  I  >  K  GOTO  7008 


701 0  GOSUB  201 00 


701 2  VTAB  6 

:  CALL  -  958 

:  PRINT  "THE  PRESENT  TRANSITION  MATRIX  ROW  "I"  IS" 
:  VTAB  9 
:  HTAB  17 
:  PRINT  "ROW  ";I 
:  VTAB  11 
:  FOR  J  =  1  TO  K 
:  PI  =  P(I,J) 

:  HTAB  1 4 

:  PRINT  "COL  "J"  "; 

:  GOSUB  20000 

:  NEXT 


701 4  GOSUB  20400 


7016  IP  G$  =  "A"  GOTO  6000 


7018  IP  G$  =  "R"  GOTO  7022 


7020  GOTO  701 4 


7022  ONERR  GOTO  7026 


7024  GOSUB  201 00 


7026  VTAB  5 

:  CALL  -  958 
:  HTAB  2 

:  PRINT  "INITIAL  FRACTIONAL  PLOW  MATRIX  ROW  ";I 
:  II  =  9 


7028  VTAB  1 0 
:  HTAB  1 
:  CALL  -  958 
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:  HTAB  13 
:  PRINT  "R"I",  "; 
:  FOR  J  =  1  TO  K 


7030  HTAB  1 7 

:  PRINT  "C"J": 
:  INPUT  P(I,J) 


7032  I?  P(I,J)  <  0  OR  P(I,J)  >  1  GOTO  7038 


7034  NEXT 
:  ST  =  0 

:  FOR  IP  *  1  TO  K 
:  ST  =  ST  +  P(I,IP) 

:  NEXT 

:  IF  ST  >  1  GOTO  7040 


7036  GOTO  701 0 


7038  VTAB  (II  +  J) 

:  HTAB  21 
:  FLASH 

:  PRINT  "INVALID  NUMBER" 
:  NORMAL 
:  II  =  II  +  1 
:  GOTO  7030 


7040  GOSUB  20500 

:  IF  G$  =  "E"  GOTO  6000 


7042  GOTO  701 0 


71 00  GOSUB  201 00 


71 02  VTAB  5 

:  CALL  -  958 
:  HTAB  6 

:  PRINT  "PRESENT  CLASS  VECTOR  (N)  IS:" 

71 04  VTAB  8 
:  HTAB  13 
:  PRINT  "R1 ,  "; 

:  FOR  I  *  1  TO  K 
:  HTAB  1 7 

:  PRINT  "C"I" :  ";#N(I) 

:  NEXT 

71 06  VTAB  1 9 
:  HTAB  1 

:  PRINT  "PRESS  (R)  TO  CHANGE  VECTOR  BACK  TO  THE" 
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:  HTAB  8 

:  PRINT  "ORIGINAL  CLASS  VECTOR  (N)" 


7108 

GOSUB  20400 

7110 

IP  G$  =  "A"  GOTO 

6000 

7112 

IP  G$  =  "R"  GOTO 

71 1  6 

71H 

GOTO  7108 

7116 

ONERR  GOTO  7120 

7118 

POR  I  =  1  TO  K 
N(I)  =  M( I ) 
NEXT 

7120 

GOTO  6000 

7200 

GOTO  3000 

8000 

GOSUB  20700 

8002 

IP  G  <  1  OR  G  > 

3  GOTO  8000 

3004 

ON  G  GOTO  8100,8300,3000 

3100 

ONERR  GOTO  8102 

3102 

GOSUB  20100 

31  04 

VTAB  3 

HTAB  12 

PRINT  "PILE  DATA 

LISTING" 

8106 

i 

luK  I  =  1  TO  39 
PRINT 

NEXT 

81  08 

VTAB  6 

HTAB  1 

INVERSE 

PRINT  "DATA  PILE 
NORMAL 

HTAB  18 

PRINT  NP$ 

NAME:"; 

8110  VTAB  9 
:  HTAB  1 
:  INVERSE 
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PRINT  "NUMBER  K  CLASSES:"; 

NORMAL 

HTAB  19 

PRINT  K; 

INVERSE 
HTAB  22 

PRINT  "TIME  T  PERIODS:"; 

NORMAL 

HTAB  38 

PRINT  T 


9112  VTAB  12 
:  HTAB  1 
:  INVERSE 

:  PRINT  "INITIAL  STOCKS:"; 

:  HTAB  22 

:  PRINT  "RECRUITMENT  VECTOR:" 
:  NORMAL 


8114  VTAB  14 
:  HTAB  1 
:  PRINT  "R1 ,  « ; 

:  FOR  1  =  1  TO  K 
:  HTAB  5 

:  PRINT  "C"I" :  ";#M(l) 

:  NEXT 


3116  VTAB  14 
:  HTAB  24 
:  PRINT  "R1 , 


9118  IF  OP  =  >  2  AND  OP  <  =  5  GOTO  8122 

9120  FOR  I  =  1  TO  K~ 

:  HTAB  28 

:  PRINT  "C"I" :  ";#R(I) 

:  NEXT 
:  GOTO  8124 


9122  FOR  I  =  1  TO  K 
:  HTAB  28 

:  PRINT  "C"I" : 

:  PI  =  R(  I ) 

:  GOSUB  20000 

:  NEXT 


81 24  INVERSE 
:  VTAB  24 
:  HTAB  1 

:  PRINT  "PRESS  (C)  TO  CONTINUE,  (E)  TO  ESCAPE 
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:  GET  G$ 
:  NORMAL 


8126 

IP  G$  =  "C"  GOTO 

8132 

81  28 

IP  G$  =  "E"  GOTO 

3000 

81  30 

GOTO  8124 

8132 

GOSUB  20100 

8134 

VTAB  3 

• 

• 

HTAB  7 

• 

• 

PRINT  "PILE  DATA 

LISTING  CONTINUED" 

8136 

FOR  I  =  1  TO  39 

PRINT 

NEXT 

8138 

VTAB  6 

HTAB  1 

INVERSE 

PRINT  "PRINTOUT 
NORMAL 

VTAB  8 

HTAB  3 

PERCENTAGES  OPTION:" 

81 40  GOSUB  20860 


8146  VTAB  11 
:  HTAB  1 
.  INVERSE 

:  PRINT  "OPTION  SELECTED:"; 
:  NORMAL 
:  VTAB  13 
:  HTAB  3 


8148 

GOSUB  20800 

8158 

VTAB  16 

• 

• 

HTAB  1 

• 

• 

INVERSE 

PRINT  "OPTION  INPUTS:"; 

NORMAL 

VTAB  18 

HTAB  3 


81 60  GOSUB  20820 
81 66  VTAB  20 


• 

• 

HTAB  3 

81  68 

GOSUB  20840 

8178 

VTAB  24 

HTAB  1 

INVERSE 

PRINT  "PRESS  (C) 
GET  G$ 

NORMAL 

TO  CONTINUE,  (E)  TO  ESCAPE  " 

8180 

IF  G$  =  "C"  GOTO 

8186 

8182 

IF  G$  =  "E"  GOTO 

3000 

81  84 

GOTO  8178 

8186 

GOSUB  20100 

8188 

• 

• 

• 

• 

VTAB  3 

HTAB  7 

PRINT  "FILE  DATA 

LISTING  CONTINUED" 

8190 

FOR  I  =  1  TO  39 

:  PRINT  " . " ; 

:  NEXT 


8192  VTAB  7 
:  INVERSE 
:  HTAB  10 

:  PRINT  "TRANSITION  MATRIX  (P)" 
:  NORMAL 


8194  K1  =  K 

:  IP  K1  >5  THEN  K1  =  5 


8196  VTAB  9 
:  HTAB  5 

:  FOR  I  =  1  TO  K1 
:  PRINT  "ROW  «;I;  SPC(  2); 

:  NEXT 


81  98  VTAB  1 1 

:  FOR  I  =  1  TO  K 
:  HTAB  1 

:  PRINT  "C" ; I 

:  NEXT  I 


3200  II  =  4 

:  FOR  I  =  1  TO  K1 
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VTAB  11 

FOR  J  =  1  TO  K 
PI  =  P(I.J) 
HTAB  (II) 
GOSUB  20000 
NEXT 

II  =  II  +  7 
NEXT 


8202  K2  =  K  -  5 

:  IF  K2  >  0  GOTO  8206 


8204  VTAB  24 
:  HTAB  8 
:  INVERSE 

:  PRINT  " PRESS  RETURN  FOR  MENU  " ; 
:  GET  G$ 

:  NORMAL 
:  GOTO  3000 


8206  VTAB  24 
:  HTAB  1 
:  INVERSE 

:  PRINT  "PRESS  (C)  TO  CONTINUE,  (E)  TO  ESCAPE 
:  GET  G$ 

:  NORMAL 


8208  IF  G$  =  "C"  GOTO  8214 


3210  IF  G$  =  "E"  GOTO  3000 


821 2  GOTO  8206 


8214  GOSUB  20100 


8216  VTAB  3 
:  HTAB  7 

:  PRINT  "FILE  DATA  LISTING  CONTINUED" 


8218  FOR  I  =  1  TO  39 
:  PRINT  " . " ; 

:  NEXT 


8220  VTAB  7 
:  INVERSE 
:  HTAB  5 

:  PRINT  "TRANSITION  MATRIX  (P)  CONTINUED" 
:  NORMAL 


8222  VTAB  9 


HTAB  5 

FOR  I  =  6  TO  K 

PRINT  "ROW  " ; I ;  SPC(  2); 
NEXT 


8224  VTAB  1 1 

:  FOR  I  =  1  TO  K 
HTAB  1 

:  PRINT  "C";I 

:  NEXT 


8226  II  -  4 

:  FOR  I  =  6  TO  K 
:  VTAB  11 

:  FOR  J  =  1  TO  K 

:  PI  =  P(I.J) 

:  HTAB  (II) 

:  GOSUB  20000 

:  NEXT 

:  II  =  II  +  7 

:  NEXT 


8228  VTAB  24 
:  HTAB  8 
:  INVERSE 

:  PRINT  "PRESS  RETURN  FOR  MENU  "; 
:  GET  G$ 

;  NORMAL 
:  GOTO  3000 


8300  ONERR  GOTO  8304 


8302  GOSUB  201 00 


8304  VTAB  6 
:  HTAB  4 

:  PRINT  "DATA  LISTING  PAPER  PRINT  ROUTINE" 


8306  VTAB  1 2 
:  HTAB  6 

:  PRINT  "(1)  PAPER  COPY 
:  INVERSE 

:  PRINT  "(PRINTER  ON)" 

:  NORMAL 
:  VTAB  14 
:  HTAB  6 

:  PRINT  "(2)  RETURN  TO  MENU" 


8308  GOSUB  20200 


8310  IP  G  <  1  OR  0  >  2  GOTO  8308 
8312  IP  G  =  2  GOTO  8000 


83H  HOME 
:  VTAB  10 
:  HTAB  4 

:  PRINT  "PAPER  DATA  LISTING  BEING  PRINTED" 


8316  GOSUB  20600 
:  GOTO  3000 


9000  GOSUB  201 00 


9002  VTAB  7 
:  HTAB  6 

:  PRINT  "DO  YOU  WISH  TO  SAVE  DATA  PILE" 
:  PRINT 

:  HTAB  (19  -  INT  (  LEN  (NP$)  /  2)) 

:  PRINT  Q$;NP$;Q$ 


9004  VTAB  1 4 
:  HTAB  17 
:  PRINT  "(1)  YES" 
:  PRINT 
:  HTAB  17 
:  PRINT  "(2)  NO" 


9006  GOSUB  20200 


9008  IP  G  <  1  OR  G  >  2  GOTO  9006 


9010  ON  G  GOTO  9100,3000 


91  00  GOSUB  201 00 


91 02  VTAB  8 
:  HTAB  9 

:  PRINT  "INPUT  DISK  DRIVE  NUMBER" 
:  PRINT 
:  PRINT 
:  HTAB  12 

:  PRINT  " ( 1 )  DISK  DRIVE  1 " 

:  PRINT 
:  HTAB  12 

:  PRINT  "(2)  DISK  DRIVE  2" 

:  PRINT 
:  HTAB  12 

:  PRINT  "(3)  ESCAPE  TO  MENU" 
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91 04  GOSUB  20200 


9106  IF  G  <  1  OR  G  >  3  GOTO  9104 


9108  DN  =  G 


9110  IF  G  =  3  THEN  1006 

91 1 2  HOME 
:  VTAB  11 
:  HTAB  7 

:  PRINT  "<DATA  PILE  IS  BEING  SAVED/* 


9114  FOR  I  *  1  TO  K 
:  N( I )  =  M( I ) 

:  NN(I)  =  N(I) 

:  NEXT 

:  FOR  I  =  1  TO  K 
:  FOR  J  =  1  TO  K 

:  PP(I,J)  *  P(I,J) 

:  NEXT 


NEXT 

FOR  I  =  1  TO  K 

RR( I )  =  R(I) 

NEXT 

9116 

ONERR 

GOTO  9100 

9118 

• 

• 

PRINT 

PRINT 

D$;  "OPEN',NF$"  , 

91  20 

PRINT 

D$; "DELETE"; NFS 

9122 

PRINT 

D$; "OPEN"; NFS 

9124 

PRINT 

D$; "WRITE"; NFS 

9126 

PRINT 

K 

FOR  1  =  1  TO  9 
PRINT  NN(I) 
NEXT 


FOR  I  =  1  TO  9 
FOR  J  =  1  TO  9 
PRINT  PP(I,J) 
NEXT 
NEXT 

FOR  I  *  1  TO  9 
PRINT  RR( I ) 

NEXT 
PRINT  A 
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PRINT  B$ 

PRINT  C 
PRINT  T 
PRINT  Z$ 

PRINT  OP 
PRINT  DO 

PRINT  D$; "CLOSE" 


9128 

GOTO  1006 

9200 

GOSUB  20100 

9202 

VTAB  5 

HTAB  13 

PRINT  "<EXIT  ROUTINES 

HTAB  13 

PRINT  " - " 

9204 

VTAB  11 

HTAB  8 

PRINT  " ( 1 )  RETURN  TO  MAIN  MENU 
PRINT 

9206 

• 

• 

HTAB  8 

PRINT  "(2)  EXIT  PROGRAM" 

9208 

GOSUB  20200 

9210 

IP  G  <  1  OR  G  >  2  GOTO  9208 

9212 

ON  G  GOTO  1006,9214 

9214  HOME 
:  VTAB  11 
:  HTAB  7 

:  PRINT  "MAN-MOD  ANALYSIS  COMPLETED" 

:  PRINT 
:  HTAB  5 

:  PRINT  "TURN  OPP  COMPUTER  AND  PILE  DISK" 
:  FOR  I  =  1  TO  5000 
:  NEXT 
:  HOME 
:  END 


10000  ONERR  GOTO  1000 


10002  GOSUB  20100 


10004  VTAB  8 
:  HTAB  4 
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:  PRINT  "(1)  CALCULATE  ALL  "T"  PERIODS" 

:  PRINT 
:  HTAB  4 

:  PRINT  "(2)  CALCULATE  LAST  TIME  PERIOD  "T 
:  PRINT 
:  HTAB  4 

:  PRINT  "(3)  EXTEND  CALCULATION  RANGE" 

:  PRINT 
:  HTAB  4 

:  PRINT  "(4)  RETURN  TO  MENU" 

10006  GOSUB  20200 
:  PR  =  G 

:  IP  G  <  1  OR  G  >  4  GOTO  10006 


10008  IP  G  =  4  GOTO  3000 


10009  IP  PR  =  3  GOTO  10200 


10010  GOSUB  20700 
:  PO  =  G 

:  IP  G  <  1  OR  G  >  3  GOTO  10010 


10012  IP  PO  *  3  GOTO  10000 


10014  IP  PR  a  1  OR  PR  =  2  THEN  POR  I  *  1  TO  K 

*  :  N(I)  =  M( I ) 

*  :  NEXT 


10016  IP  PR  =  2  THEN  SP  =  T 


10018  IP  PR  =  3  GOTO  10027 


10020  IP  PO  =  2  GOTO  10032 


10022  GOTO  10300 


10024  IF  TA  <  =  T  GOTO  10030 


10025  TT  =  TA  -  T  -  1 
:  T  =  TA 


10026  IP  PR  =  3  GOTO  10010 


10027  IP  PO  -  1  THEN  PR  =  2 
*  :  GOTO  10304 


10028  GOTO  10032 


10030  HOME 
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:  VTAB  9 
:  STAB  12 
:  PLASH 

:  PRINT  "INVALID  +T  VALUE” 

:  NORMAL 

:  POR  I  a  1  TO  1500 
:  NEXT 

:  GOTO  10000 

10032  GOSUB  20100 
:  VTAB  5 
:  HTAB  13 

:  PRINT  "TURN  PRINTER  ON" 

:  PRINT 
:  HTAB  6 

:  PRINT  "(NOT  REQUIRED  WITH  SILENTYPE)" 
:  VTAB  10 
:  HTAB  15 

:  PRINT  "ALIGN  PAPER" 

:  VTAB  14 
:  HTAB  7 

:  PRINT  "PRINTOUT  DEFAULTS  TO  SLOT  1" 


10034  VTAB  23 

:  POR  I  -  1  TO  39 
:  PRINT  " • " ; 

:  NEXT 
:  VTAB  24 
:  HTAB  7 

:  PRINT  "PRESS  RETURN  TO  CONTINUE  "; 
:  GET  G$ 


10036  HOME 
:  VTAB  9 
:  HTAB  7 

:  PRINT  "< PRINT  ROUTINE  IN  PROCESS>" 

:  VTAB  11 
:  HTAB  2 

:  PRINT  "< PRESS  (E)  TO  ESCAPE  PRINTING  ROUTINES 
:  GOSUB  10600 

10038  IP  PR  -  2  OR  PR  =  3  THEN  HOME 


10040  IP  PR  -  3  GOTO  10306 
10042  GOTO  10300 
10200  GOSUB  20100 


10202  VTAB  4 
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:  HTAB  4 

:  PRINT  "PRESENT  TIME  (T)  PERIODS  ARE:  "T 


10204  VTAB  6 
:  HTAB  4 

:  PRINT  "EXTENDED  RANGE  (+T)  INPUT  IS:  "TA 


10206  VTAB  9 
:  INVERSE 
:  HTAB  1 

:  PRINT  " (+T  CANNOT  BE  LESS  THAN  OR  EQUAL  TO  T)" 
:  NORMAL 


10208  VTAB  12 
:  HTAB  4 

:  PRINT  "(1)  CONTINUE  FLOWS  TO  "TA 
:  PRINT 
:  HTAB  4 

:  PRINT  "(2)  CONTINUE  FLOW,  PRINT  ONLY  "TA 
:  PRINT 
:  HTAB  4 

:  PRINT  "(3)  +T  CHANGE  ROUTINE" 

:  PRINT 
:  HTAB  4 

:  PRINT  "(4)  RETURN  TO  MENU" 


10210 

• 

• 

GOSUB 
IF  G 

20200 

<  1  OR  G  >  4  GOTO  10210 

10212 

IF  G 

=  2  THEN  SP  =  TA 

10214 

ON  G 

GOTO  10024,10024,6000,10000 

10300 

T1  = 

-  1 

• 

• 

T2  = 

0 

• 

• 

TT  = 

T 

10302 

IF  PO 

*  2  GOTO  10306 

10304 

GOSUB 

10400 

10306 

IF  PR 

*  2  OR  PR  a  3  THEN  VTAB  11 

*  : 

HTAB 

13 

*  ; 

FLASH 

*  ; 

PRINT 

"PROGRAM  WORKING" 

*  ; 

NORMAL 

10308 

POKE 

-  16368,0 

10310 

FOR  S 

a  0  TO  TT 
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10312 

IP  T1  =  -  1  THEN  R1  =  0 

*  . 

• 

GOTO  10320 

103H 

GOSUB  10800 

10316 

POR  I  =  1  TO  K 

• 

• 

XM( I )  =  0 

• 

• 

POR  J  »  1  TO  K 

XM(I)  =  N(J)  *  P(J,I)  +  XM(I) 


NEXT 

NEXT 


10318 

• 

« 

• 

• 

POR  1  =  1  TO  K 

N(I)  »  XM( I )  +  RM( I 
NEXT 

10320 

D  =  .00000001 

POR  I  =  1  TO  K 

D  =  D  +  N(  I ) 

NEXT 

T1  *  T1  +  1 

IP  T1  =  T2  GOTO  10324 

10322 

V 

1  o 

1  E-« 

1  O 

1  C!J 

1 

a 

■ 

-*  i 

O  1 
1 
1 

00 

1 

1 

10324 

T2  = 

T2  +  1 

10326 

IP  SP 

>  T1  GOTO  10338 

10328 

IP  PO 

=  2  GOTO  10700 

10330 

GOSUB 

10500 

10352  VTAB  24 
HTAB  1 

:  PRINT  "PRESS  (C)  TO  CONTINUE,  (E)  TO  ESCAPE  " 

.  GET  g$ 

:  IP  G$  =  "E"  GOTO  3000 


1 0334  GOTO  1 0338 


10336  X  =  PEEK  (  -  16384) 
IP  X  =  197  GOTO  3000 

10338  NEXT  S 
:  SP  =  0 


10340  GOTO  10000 
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10400  GOSUB  20100 
:  VTAB  5 
:  HTAB  11 

:  PRINT  "TRANSITIONAL  PLOWS" 


10402  IP  Z$  *  "2"  OR  Z$  =  "3”  GOTO  10408 


10404  VTAB  7 
:  HTAB  2 
:  PRINT  "TIME"; 

:  HTAB  8 
:  PRINT  "CLASS"; 

:  HTAB  15 

:  PRINT  "STOCKS-N"; 

:  HTAB  25 

:  PRINT  "RECRUITMENT" 


10406  VTAB  8 
:  HTAB  1 

:  FOR  I  =  1  TO  39 
:  PRINT  "-" ; 

:  NEXT 
:  PRINT 
:  RETURN 


10408  VTAB  7 
:  HTAB  2 
:  PRINT  "TIME"; 

:  HTAB  8 
:  PRINT  "CLASS"; 

:  HTAB  15 

:  PRINT  "STOCKS (PERCENT)"; 
:  HTAB  32 
:  PRINT  "RECRUIT" 


10410  VTAB  8 

:  FOR  I  *  1  TO  39 
:  PRINT 

:  NEXT 
:  PRINT 
:  RETURN 


105 00  IP  Z$  »  "2"  GOTO  10516 


10502  IP  Z$  »  "3"  GOTO  10522 
10504  IP  OP  »  >  2  GOTO  10508 


10506  VTAB  10 
:  CALL  -  958 
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HTAB  2 
PRINT  T1 ; 

FOR  J  =  1  TO  K 
HTAB  10 
PRINT  J; 

HTAB  16 
JJ  =  N(J)  +  .5 
PRINT  #  INT  (JJ); 
‘  HTAB  28 
PRINT  #R( J) 

NEXT 

VTAB  (11  +  K) 

HTAB  8 

PRINT  "TOTAL" ; 

HTAB  16 

PRINT  #(D  +  .5); 
GOTO  10512 


10508  VTAB  10 
:  CALL  -  958 
:  HTAB  2 
:  PRINT  T1  ; 

:  FOR  J  =  1  TO  K 
:  HTAB  1 0 

PRINT  J ; 

:  HTAB  1 6 

:  JJ  =  N( J )  +  .5 

:  PRINT  #  INT  (JJ); 

HTAB  28 

:  RX  =  R1  *  R(J) 

:  PRINT  #  INT  (RX  +  .5) 

:  NEXT 


10510  VTAB  (11  +  K) 

:  HTAB  8 
:  PRINT  "TOTAL"; 

:  HTAB  16 

:  PRINT  #(D  +  .5); 


10512  HTAB  28 

:  PRINT  #(R1  +  .5) 


105U  VTAB  (13  +  X) 

:  HTAB  1 

:  FOR  I  =  1  TO  36 
:  PRINT 

:  NEXT 
:  RETURN 


'  1051 6  IF  OP  =  >  2  GOTO  10520 
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10518  VTAB  10 
:  CALL  -  958 
:  HTAB  2 
:  PRINT  T1  ; 

:  FOR  J  =  1  TO  K 
:  HTAB  1 0 

:  PRINT  J; 

:  HTAB  1 4 

JJ  =  N(J)  +  .5 

:  PRINT  " F0R"6t0;#  INT  (JJ);  SPC(  3); 

:  N1  =  100  *  N(J)  /  D 

:  PRINT  "F0R"3»0;  "( '•#  INT  (N1  +  .  5 )  ” )  ’* ; 

:  HTAB  32 

:  PRINT  "F0R"6,0;#R( J) 

:  NEXT 

:  GOTO  10528 


10520  VTAB  10 
:  CALL  -  958 
:  HTAB  2 
:  PRINT  T1  ; 

:  FOR  J  =  1  TO  K 
:  HTAB  1 0 

:  PRINT  J; 

:  HTAB  1 4 

:  JJ  =  N( J)  +  .5 

:  PRINT  "FOR" 6 ,0:#  INT  (JJ);  SPC(  3); 

:  N1  =  100  *  N(  J )  /  D 

:  PRINT  "F0R"3 , 0; "  ( "#  INT  (N1  +  .5)")"; 

:  HTAB  32 

RX  =  R1  *  R ( J ) 

:  PRINT  "F0R"6,0;#  INT  (RX  +  .5) 

:  NEXT 

:  GOTO  10528 


10522  IF  OP  =  >  2  GOTO  10526 


10524  VTAB  10 
:  CALL  -  958 
:  HTAB  2 
:  PRINT  T1 ; 

:  FOR  J  =  1  TO  K 
:  HTAB  1 0 

:  PRINT  J; 

:  HTAB  1 4 

:  JJ  =  N( J)  +  .5 

:  PRINT  "F0R"6,0:#  INT  (JJ);  SPC(  3); 

:  N1  =  100  *  N(J)  /  M( J) 

:  PRINT  "F0R"3»0; "( "#  INT  (N1  +  .5)")"; 
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HTAB  32 

PRINT  "F0R"6,0;#R(J ) 
NEXT 

GOTO  10528 


10526  VTAB  10 
:  CALL  -  958 
:  HTAB  2 
:  PRINT  T1  ; 

:  FOR  J  =  1  TO  K 
:  HTAB  1 0 

:  PRINT  J; 

:  HTAB  1 4 

:  JJ  =  N( J)  +  .5 

:  PRINT  "F0R"6,0:#  INT  (JJ);  SPC(  3); 

:  N1  =  100  *  N( J )  /  M(J) 

:  PRINT  "F0R"3,0;"("#  INT  (N1  +  .5)")"; 

:  HTAB  32 

:  RX  =  R1  *  R(J) 

:  PRINT  "F0R"6,0;#  INT  (RX  +  .5) 

:  NEXT 


10528  VTAB  (11  +  K) 

:  HTAB  8 
:  PRINT  "TOTAL"; 

:  HTAB  14 

:  N1  =  100  *  D  /  DO 

:  PRI^)f!D  +  *5)*'  SP°(  3) ; "F0R"3, 0; " ( "#  INT  (N1  + 
:  HTAB  32 ’ 

:  PRINT  "F0R"6,0;#(R1  +  .5) 


10530  VTAB  (13  +  K) 

:  HTAB  1 

:  FOR  1=1  TO  39 
:  PRINT 

:  NEXT 
:  RETURN 


10600  PR#  1 
:  PRINT 
:  PRINT 


10602  HTAB  10 

:  PRINT  "DATA  FILE  NAME...:"; 
:  POKE  36,40 
:  PRINT  "("NFS")" 

:  PRINT 
:  PRINT 
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10604  HTAB  10 

:  PRINT  "TRANSITIONAL  PLOWS" 
:  PRINT 
:  PRINT 


10606  IP  Z$  =  "2"  OR  Z$  =  "3"  GOTO  10612 


10608  HTAB  10 

:  PRIN*  "TIME"; 

:  HTAB  20 
:  PRINT  "CLASS"; 

:  HTAB  30 

:  PRINT  "STOCKS  (N)"; 
:  POKE  36,46 
:  PRINT  "RECRUITMENT" 


10610  HTAB  10 

:  FOR  I  =  1  TO  48 
:  PRINT 

:  NEXT 
:  PRINT 
:  GOTO  10616 


10612  HTAB  10 

:  PRINT  "TIME"; 

:  HTAB  20 
:  PRINT  "CLASS"; 

:  HTAB  30 

:  PRINT  "STOCKS  (N)"; 
:  POKE  36,43 
:  PRINT  "(PERCENT)"; 

:  POKE  36,57 
:  PRINT  "RECRUITMENT" 


10614  HTAB  10 

:  FOR  I  =  1  TO  59 
:  PRINT  "="; 

:  NEXT 
:  PRINT 


10616  VC  =  10 
:  PR#  0 
:  RETURN 


10700  PR#  1 

:  IF  Z$  =  "2"  GOTO  10720 


10702  IP  Z$  =  "3"  GOTO  10726 


10704  IP  OP  =  >  2  GOTO  10708 
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10706  HTAB  10 
:  PRINT  T1 ; 

:  FOR  J  =  1  TO  K 
:  HTAB  23 

:  PRINT  J; 

:  HTAB  31 

:  JJ  =  N(J)  +  .5 

:  PRINT  #  INT  (JJ); 

:  POKE  36,49 

:  PRINT  #R(J) 

:  NEXT 
:  PRINT 
:  GOTO  10710 


10708  HTAB  10 
:  PRINT  T1  ; 

:  FOR  J  =  1  TO  K 
:  HTAB  23 

:  PRINT  J; 

:  HTAB  31 

:  JJ  =  N( J)  +  .5 

:  PRINT  #  INT  (JJ); 

:  POKE  36 , 49 

:  RX  =  R1  *  R(J) 

:  PRINT  #  INT  (RX  +  .5 

:  NEXT 
:  PRINT 


10710  HTAB  20 

:  PRINT  "TOTAL”; 

:  HTAB  31 

:  PRINT  #(D  +  .5); 
:  POKE  36,49 
:  PRINT  #(R1  +  .5) 


10712  HTAB  10 

:  FOR  I  =  1  TO  48 
:  PRINT 

:  NEXT 
:  PRINT 


10714  VC  =  7C  +  (K  +  3) 

:  IF  VC  <  54  GOTO  10720 


10716  FOR  I  =  1  TO  (66  -  VC) 
:  PRINT 

:  NEXT 


10718  GOSUB  10600 
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:  PR#  0 
:  GOTO  10336 


10720  IP  OP  *  >  2  GOTO  10724 


10722  HTAB  10 
:  PRINT  T1 ; 

:  POR  J  =  1  TO  K 
:  HTAB  22 

:  PRINT  J; 

:  HTAB  31 

:  JJ  =  N(J)  +  .5 

:  PRINT  "P0R"6,0;#  INT  (JJ); 

:  POKE  36,45 

:  N1  =  100  *  N(J)  /  D 

:  PRINT  MF0RH3»0; " ( "#  INT  (N1  +  .5)")M 

:  POKE  36,59 

:  PRINT  "P0R"6,0;#R( J) 

:  NEXT 
:  PRINT 
:  GOTO  10732 


10724  HTAB  10 
:  PRINT  T1  ; 

:  FOR  J  =  1  TO  K 
;  HTAB  22 
PRINT  J; 

:  HTAB  31 

:  JJ  =  N( J)  +  .5 

;  PRINT  "F0R"6,0;#  INT  (JJ); 

:  POKE  36,45 

:  N1  =  100  *  N( J)  /  D 

:  PRINT  "F0R"3,0 ;"("#  INT  (N1  +  .5)")” 

:  POKE  36,59 

:  RX  =  R1  *  R(J) 

:  PRINT  " P0R"6 , 0; #  INT  (RX  +  .5) 

:  NEXT 
:  PRINT 
:  GOTO  10732 


10726  IP  OP  =  >  2  GOTO  10730 


10728  HTAB  10 
:  PRINT  T1  ; 

:  FOR  J  =  1  TO  K 
:  HTAB  22 

:  PRINT  J; 

:  HTAB  31 

:  JJ  =  N( J)  +  .5 

;  PRINT  "F0R"6,0;#  INT  (JJ); 
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POKE  36,45 

N1  =  100  *  N(J)  /  M(J) 

PRINT  "F0R"3,0; " ( "#  INT  (N1  +  .5)")"; 

POKE  36,59 

PRINT  "F0R"6,0;#R( J) 

NEXT 

PRINT 

GOTO  10732 


10730  HTAB  10 
:  PRINT  T1 ; 

:  FOR  J  =  1  TO  K 
:  HTAB  22 

:  PRINT  J ; 

:  HTAB  31 

:  JJ  *  N( J)  +  .5 

PRINT  "FOR" 6,0;#  INT  (JJ); 

:  POKE  36,45 

:  N1  *  100  *  N( J)  /  M( J) 

:  PRINT  "F0R"3 , 0; " ( "#  INT  (N1  +  .5)")"; 

:  POKE  36,59 

:  RX  =  R1  *  R( J) 

:  PRINT  "F0R"6,0;#  INT  (RX  +  .5) 

:  NEXT 
:  PRINT 


10732  HTAB  20 

:  PRINT  "TOTAL"; 

:  HTAB  31 

:  PRINT  "F0R"6,0;#(D  +  .5); 

:  N1  =  100  *  D  /  DO 
:  POKE  36,45 

:  PRINT  "F0R"3 ,0; " ( "#  INT  (N1  +  . 5 ) " ) " ; "F0R"6, 0; 
:  POKE  36,59 
:  PRINT  #(R1  +  .5) 


10734  HTAB  10 

:  FOR  I  =  1  TO  58 
:  PRINT 

:  NEXT 
:  PRINT 


10736  VC  =  VC  +  (K  +  3) 

:  IF  VC  <  54  GOTO  10742 


10738  FOR  I  *  1  TO  (66  -  VC) 
:  PRINT 

:  NEXT 


10740  GOSUB  10600 
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10742  PR#  0 

:  GOTO  10336 


10800  IF  A  -  -  1  GOTO  10806 


10802  IP  B$  =  M0"  GOTO  10828 


10804  GOTO  10816 


10806  R1  =  0 

:  FOR  J  =  1  TO  K 
:  R1  =  R1  +  N(J)  *  W(J) 

:  NEXT 


10808  IP  B$  =  GOTO  10812 


10810  R1  =  R1  +  C 
:  GOTO  10814 


10812  R1  =  R1  +  D  *  (C  -  1  ) 


10814  FOR  J  =  1  TO  K 

:  RM(J)  =  R1  *  R(J) 

:  NEXT 

:  GOTO  10830 


10816  IP  A  =  0  THEN  A  =  1 


10818  R1  =  A 


10820  POR  J  a  1  TO  K 

:  RM( J)  =  R1  *  R(J) 

:  NEXT 


10822  IP  B$  =  GOTO  10826 


10824  A  =  A  +  C 
:  GOTO  10830 


10826  A  =  A  *  C 
:  GOTO  10830 


10828  POR  J  =  1  TO  K 
:  RM( J)  =  R( J ) 

:  NEXT 
:  R1  =  0 

:  POR  J  =  1  TO  K 
:  R1  *  R1  +  RM( J) 

:  NEXT 
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10830  RETURN 


20000  PI  x  PI  *  10000 
:  PBD  =  INT  ( PI ) 

:  PAD  *  PI  -  PBD 
:  ROUND  =  INT  (PAD  +  .5) 
:  PBD  x  PBD  +  ROUND 


20002  IP  PBD  x  10000  GOTO  20014 


20004  IP  PBD  x  0  GOTO  20016 


20006  PBD$  =  STR$  (PBD) 
:  LS  =  LEN  (PBDS) 


20008  IP  LS  x  4  GOTO  20018 


20010  LZ  =  4  -  LS 
:  ZEROS  =  "OOOO” 

:  ZEROS  =  LEFTS  ( ZEROS, LZ) 


20012  PRINT  "  . " ; ZEROS ; PBDS 
:  GOTO  20020 


20014  PRINT  ” 1.0000" 
:  GOTO  20020 


20016  PRINT  "  .0000” 
:  GOTO  20020 


20018  PRINT  ”  . ” ; PBDS 
:  GOTO  20020 


20020  RETURN 


20050  PI  =  PI  *  10000 
:  PBD  x  INT  ( PI ) 

:  PAD  x  PI  -  PBD 
:  ROUND  =  INT  (PAD  +  .5) 
:  PBD  x  PBD  +  ROUND 


20052  IP  PBD  =  10000  GOTO  20064 


20054  IP  PBD  x  0  GOTO  20066 


20056  PBDS  =  STRS  (PBD) 
:  LS  =  LEN  (PBDS) 


20058  IP  LS  x  4  GOTO  20068 
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20060  LZ  =  4  -  LS 
:  ZEROS  «  "0000" 

:  ZEROS  *  LEFTS  ( ZEROS, LZ) 

20062  PRINT  "  {ZEROS; PBDS; 

:  GOTO  20070 

20064  PRINT  "1.0000"; 

:  GOTO  20070 


20066  PRINT  "  .0000"; 

:  GOTO  20070 

20068  PRINT  "  .";PBD$; 
:  GOTO  20070 


20070  RETURN 


20100  TEXT 
:  HOME 
:  INVERSE 
:  VTAB  1 
:  HTAB  1 

:  PRINT  "  *  MAN-MOD  TRANSITION  MATRIX  PROGRAM 
:  NORMAL 
:  RETURN 


20200  VTAB  23 
i  HTAB  1 

:  FOR  I  =  1  TO  39 
:  PRINT  " • " ; 

;  NEXT 
:  PRINT 
:  HTAB  12 

:  PRINT  "PRESS  SELECTION  "; 

:  GET  GS 
:  G  *»  VAL  (GS) 

:  RETURN 

20300  VTAB  22 
:  HTAB  2 

:  PRINT  "(PRESS  (A)  TO  ACCEPT,  (R)  TO  REENTER) 
:  PRINT 
:  VTAB  24 
:  HTAB  12 

:  PRINT  "((E)  TO  ESCAPE)  "; 

:  GET  GS 
:  RETURN 


20400  VTAB  24 
:  HTAB  1 

:  PRINT  "(PRESS  (A)  TO  ACCEPT,  (R)  TO  REENTER)"; 
:  GET  G$ 

:  RETURN 

20500  VTAB  4 
:  HTAB  1 
:  CALL  -  958 
:  VTAB  5 
:  HTAB  2 
:  PLASH 

:  PRINT  "ROW  PROBABILITIES  SUM  GREATER  THAN  1" 

:  NORMAL 
:  VTAB  12 
:  HTAB  8 

:  PRINT  "VERIFY  INPUTS  AND  REENTER" 


20502  VTAB  10 
:  HTAB  3 

:  PRINT  "(C)  TO  CONTINUE  AND  REENTER  INPUT" 
:  PRINT 
:  HTAB  3 

:  PRINT  "(E)  ESCAPE  INPUT  ROUTINE  TO  MENU" 


20504  VTAB  16 
:  HTAB  3 

:  PRINT  "(WITH  ESCAPE  (E)  ALL  PREVIOUS  INPUTS" 

:  HTAB  3 

:  PRINT  "ARE  ACCEPTED,  REMAINING  INPUTS  MAY  BE" 
:  HTAB  3 

:  PRINT  "ENTERED  THROUGH  THE  CHANGE  ROUTINE)" 


20506  VTAB  24 
:  HTAB  1 

:  PRINT  "PRESS  (C)  TO  CONTINUE,  (E)  TO  ESCAPE  "; 
:  GET  G$ 


20508  IP  G$  «  "C"  OR  G$  =  "E"  GOTO  20512 


20510  GOTO  20506 


20512  RETURN 


20600  PR#  1 
:  PRINT 
:  PRINT 
:  PRINT 
:  HTAB  5 

:  FOR  I  =  1  TO  25 
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:  PRINT 

:  NEXT 
:  PRINT 

20602  HTAB  5 

:  PRINT  "MAN-MOD  DATA  PILE  LISTING" 
:  HTAB  5 

:  FOR  I  *  1  TO  25 
PRINT 
:  NEXT 
:  PRINT 
:  PRINT 
:  PRINT 


20604  HTAB  5 

:  PRINT  "DATA  PILE  NAME  IS...:"} 
:  HTAB  35 
:  PRINT  NFS 
:  PRINT 
:  PRINT 
:  HTAB  5 

:  PRINT  "NUMBER  (K)  CLASSES..:"; 
:  HTAB  35 
:  PRINT  "("K")" 

:  PRINT 
:  PRINT 


20606  HTAB  5 

:  PRINT  "TIME  (T)  PERIODS _ :"; 

:  HTAB  35 
:  PRINT  "("T")" 

:  PRINT 
:  PRINT 
:  HTAB  5 

:  PRINT  "PERCENTAGES  OPTION..:"; 
:  HTAB  35 
:  GOSUB  20860 
:  PRINT 
:  PRINT 


20608  HTAB  5 

:  PRINT  "OPTION  SELECTED  IS..:"; 
:  HTAB  35 
:  GOSUB  20800 
:  PRINT 
:  PRINT 
:  HTAB  5 

:  PRINT  "OPTION  INPUTS . :"; 

:  HTAB  35 
:  GOSUB  20820 
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PRINT 
HTAB  35 
GOSUB  20840 
PRINT 
PRINT 


20610  HTAB  5  ,  % 

:  PRINT  "INITIAL  STOCK  (N)  VECTOR  AND  RECRUITMENT  (R) 
VECTOR" 

:  PRINT 
:  PRINT 


20612  HTAB  16 

:  FOR  I  =  1  TO  K 

:  PRINT  SPC(  1 ) ; "COL  ";I;  SPC(  1); 

:  NEXT 
:  PRINT 
:  PRINT 


20614  HTAB  5 

:  PRINT  "VECTOR  N:"; 

:  HTAB  16 
:  FOR  I  =  1  TO  K 
:  PRINT  #M(I) ;  SPC(  1  ); 

:  NEXT 
:  PRINT 
:  PRINT 


20616  HTAB  5 

:  PRINT  "RECRUIT  R:"; 


20618  I?  OP  =  1  GOTO  20622 


20620  HTAB  16 

:  FOR  I  =  1  TO  K 
:  PI  =  R(I) 

:  GOSUB  20050 

:  PRINT  SPC(  1); 

:  NEXT 
:  PRINT 
:  PRINT 
:  PRINT 
:  GOTO  20624 


20622  HTAB  16 

:  FOR  I  *  1  TO  K 
:  PRINT  #R(I) ;  SPC(  1); 

:  NEXT 
:  PRINT 
:  PRINT 
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PRINT 


20624  HTAB  5 

:  PRINT  "TRANSITIONAL  PLOW  MATRIX  (P)" 
:  PRINT 
:  PRINT 


20626  HTAB  16 

:  POR  I  =  1  TO  K 

:  PRINT  SPC(  1  ) ; "COL  ";I;  SPC(  1); 

:  NEXT 
:  PRINT 
:  PRINT 


20628  POR  I  a  1  TO  K 
:  HTAB  5 

:  PRINT  "ROW  ("I")"; 

:  HTAB  1 6 

:  FOR  J  =  1  TO  K 

:  PI  =  P(I,J) 

:  GOSUB  20050 

:  PRINT  SPC(  1 ) ; 

:  NEXT 

:  PRINT 

:  NEXT 
:  PRINT 
:  PRINT 
:  PRINT 


20630  K3  =  9  -  K 
:  K4  *  11  +  K3 
:  POR  I  =  1  TO  K4 
:  PRINT 

:  NEXT 


20632  PR#  0 
:  RETURN 


20700  GOSUB  20100 


20702  VTAB  6 
:  HTAB  7 

:  PRINT  "CHOOSE  DESIRED  DATA  LISTING" 


20704  VTAB  11 
:  HTAB  10 

:  PRINT  "(1)  SCREEN  DISPLAY" 
:  VTAB  13 
:  HTAB  10 

:  PRINT  "(2)  PAPER  COPY" 
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:  VTAB  15 
:  HTAB  10 

:  PRINT  "(3)  RETURN  TO  MENU” 


20708  GOSUB  20200 


20710  RETURN 


20800  IP  OP  =  1  THEN  PRINT  "FIXED  RECRUIT  VECTOR" 


20802  IF  OP  =  2  THEN  PRINT  "ADDITIVE  (RECRUIT  SIZE)" 


20804  IF  OP  =  3  THEN  PRINT  "MULTIPLICATIVE  (RECRUIT  SIZE)" 


20806  IF  OP  =  4  THEN  PRINT  "ADDITIVE  (SYSTEM  SIZE)" 


20808  IP  OP  =  5  THEN  PRINT  "MULTIPLICATIVE  (SYSTEM  SIZE)" 


20810  RETURN 


20820  IF  OP  »  1  THEN  PRINT  "NOT  APPLICABLE" 


20822  IP  OP  =  2  OR  OP  =  3  THEN  PRINT  "NUMBER  ENTERING  (";A 


20824  IP  OP  =  4  OR  OP  =  5  THEN  PRINT  "CALCULATES  TOTAL  NET 
NUMBER” 


20826  RETURN 


20840  IP  OP  =  1  THEN  PRINT  "ALL  ENTER  CLASS  1" 


20842  IP  OP  =  2  THEN  PRINT  "NUMBER  TO  INCREASE  ("C")" 


20844  IP  OP  =  3  OR  OP  =  5  THEN  PRINT  "MULTIPLICATIVE  FACTO 
R  ("C")" 


20846  IP  OP  =  4  THEN  PRINT  "TO  INCREASE  SYSTEM  BY  (";C;")" 


20848  RETURN 


20860  IP  Z$  =  "1"  THEN  PRINT  "NO  CLASS  PERCENTAGES  (*)" 


20862  IP  Z$  =  "2"  THEN  PRINT  "GRADE  SIZE  AS  %  OP  TOTAL  3IZ 
E" 


20864  IP  Z$  =  "3”  THEN  PRINT  "GRADE  SIZE  AS  %  OF  ORIGINAL 
SIZE" 


20866  RETURN 
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20900  FOR  1=1  TO  K 
:  W(I)  =  1 

:  FOR  J  *  1  TO  K 

:  W(I)  =  W(I)  - 

:  NEXT 

:  NEXT 
:  RETURN 


AEPHTDIX  D 

MAN-MOD/LINKER  MODULE 
PROGRAM  LISTING 


The  MAN-MOD/LINKER  module  ia  a  public  domain  machine 
language  routine.  It  allows  module  chaining.  The  program 
listing  was  done  by  a  memory  listing  routine. 
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X2F18.308F 


2F18- 

2F20- 

2F28- 

2F30- 

2F38- 

2F40- 

2F48- 

2F30- 

2F58- 

2F60- 

2F68- 

2F70- 

2F78- 

2F80- 

2F88- 

2F90- 

2F98- 

2FA0- 

2FA8- 

2FB0- 

2FB8- 

2FC0- 

2FC8- 

2FD0- 

2FD8- 

2FE0- 

2FE8- 

2FF0- 

2FF8- 

3000- 

3008- 

3010- 

3018- 

3020- 

3028- 

3030- 

3038- 

3040- 

3048- 

3050- 

3038- 

3060- 
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3070- 
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3080- 

3088- 
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X3090.30E0 


3090- 

3098- 

30A0- 

30A8- 

3080- 

3088- 

30C0- 
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30D8- 
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APPEND IX  B 


MAN-MOD/PORMATTER  MODULE 
PROGRAM  LISTING 


The  MAN-MOD/PORMATTER  module  is  a  print  using  routine 
allowing  for  real  and  integer  numbers  to  be  formatted.  It 
is  a  modified  version  of  PRINT  II,  a  Computer  Systems  De¬ 
sign  copyrighted  program.  Permission  has  been  obtained  to 
utilize  the  modified  routine  for  MAN-MOD;  any  other  use  of 
the  routine  is  prohibited.  The  program  listing  was  done  by 
a  memory  listing  routne. 
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A9 

00 

20 

3C 

08 

49 

9A08-  FF 

60 

AS 

24 
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C9 
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